>:v! ^m .< 






^%^m 



#'i#%« 



? COMPILE nucande/tsharer wIth tspuc library 

PACKET 1041 

INPUT 6U CARDS FROM ZIP 

TIME 1740 

DATE 77012 WEONESDAYn 01/12/77 



*** MESSAGE OF jHE DAY **♦ 

WELCOME TO B5700 TIME SHARING, 

MAY YOUR DATA BE DEPENDABLE AND YOUR PROGRAMS PROvENi 
FROM THE STAFF OF THE BIG BAD BURROUGHS. 






*** 



BURROUOHS B57OO TSMCP MARK XVI»0i69 AND INJRINSICS MARK XVl.OiOO 

COMPILE NUCANDE/TSHaRER WITH TSPOL LIBRARY 

? tSPOL STACKS 1024« COMMENT TSPQL SjACK AINPT BIG ENOuGH 
? TSPOL FILE TAPE*. SYMBOL/CANOE DISK SERIAL 

7 CORE« 3000, COMMENT SETS CORE EST FOR CAnDE TO 3000 WORDS 
? STACKS 256. C«NOE STACK NEEDS NO MORE THAN 256 WDS 
DATA CARD 

4ITSPOL/NUCANOE' 4 BOJ 1740 08/28/76 
COB In CARD DBITSPOL/nUCAnDE* 4 
DKA IN SER SYMBOL CANDE ITSPOL/NUCANDE* 4 
PBD1041 OUT Oil UINE«TSP0L/NUCAN0E» 4 

DSKl OQOOOOOITSPQL/NUCANDEn 4 
DSK2 OOOOOOOITSPOL/NUCANDE* 4 
NUCANDE TSHARERJTSPOL/NUCAnDEs 4 



*** 



?END, 



OUT 
OUT 
OUT 



SER 

SER 
RDM 



DKA 
DKA 
DKA 
4TI 
TIME For TSPOl/NUCANDE» 4 IS 4146 IN 10»34 
DKA LOk NUCANDE TSMARER ? TSP0L/NUCANDE» 4 
COB REl CARD DBITSPOL/NUCANDE* 4 



SYMBOL CANOElTSPOL/NUCANDEn 4 

SER OSRTl OOOOOOOITSP0L/NUCAN0E« . 

DISKIT5P0L/NUCAN0E» 4- 1056 SEGS. 

aiSKlTSPQU/NUCANDE" 4- 1056 SEfiS, 



DKA REl 

OKA OUT 
#N0 USER 

DS OK 
J-Nil_..UaEfi 
40K 

OKA OUT SER DSRT2 OOOOOOOITSPOL/NUCANDE* 4 

OSrTi/OOOOOOO/OOOOOOOs SEGS--CREATED 01/12/77 AT 17I58I59I51 

DKA REt OSRTl 00000001 TSP0L/NUCAN0E» 4 

D$RT2/O000000/O000000s SEGS— CREATED 01/12/77 AT 

DKA REl 0SRT2 OOOOQQO t TSPOL/NUCANDE« 4 

DKA OUT SER DSRTl OOOOOOOITSPOL/NUCANDE* 4 

DKA OUT SER DSRT2 00000001 TSPOL^NUCANOE" 4 
tNO..USE« oi^K^T^^Ot/NUCANOEa 4- 901 SEGS. 

OS 
«N0 
40K 
»N0 



1«>«02»03I38 



OK 
USER 



DISKITSPOL/NUCANDE* 4- 901 SEGS. 



USER DISKITSPOL/NUCANOE* 4- 901 SEGS. 



OS OK 
*N0 U3ER OISKITSPOL/NUCANDE* 4- 901 SEGSt 

OS OK 
#N0 USER DISKITSPOU/NUCANOE* «• 901 SEGS. 

OS OK 
#N0 USER OISKITSPOL/NUCANDE* 4- 901 SEGS. 

OS OK 
#N0 USER DISKITSPOL/NUCANDE" ft- 901 SEGS, 
4DS 
•OPRTR DS-ED«TSPOU/NUCANDE» H, S» X70# A» 4211 

0SK2/00000O0/0000O0Oa 600 SEGS--CREATED 01/12/77 AT 17I40»39«55 

OKA REU DSK2 0000000 ITSPOL/NUCANOE* 4 

P8D1041 REL On LINE l3502lTSP0U/NUCAN0Es 4 

OSKl/OOOOOOO/OOOOOOOa 600 SEGS— CREATED 01/12/77 AT 17l40»22l39 

OKA REl DSKl 0000000» TSPOL/NUC ANDE* 4 

OSRT2/O000000/O000000a 1056 SEGS-*CREATED 01/12/77 AT 18l04l06»28 

OKA REt 0SRT2 0000000 1 TSPOU/NUCANDE» 4 

OSrTi/0000000/0000000« 1056 SEQS—CREATED 01/12/77 AT 18»02I31I22 

OKA REl OSRll OOOOOOOITSPOL/NUCANOE" 4 

TSPOL/NUCANOEb 4*PST» 11104 OS-EO 

PKT#104l REMOVED 



» m* 



^■,^., 



* i# 



UABEU OOOOOOOOOLINE 00177012? COMPILE; NUCANDE/TSHARER WITH TSPOU UIBRARY 

Burroughs b-s^-oo tspou comprer mark xvi.o,oo Wednesday* oi/i2/77# 



5U0 PM, 



TSPOW /NUCANDE 



nucande/tsharer 



COMMEnTI ♦ TITLE* 85500/B5700 MARK XVI SYSTEM RELEASE * 

* FILE ID» SYMBOL/CANOE TAPE 101 SYMB0L2/FILE00Q * 

* this material is proprietary to burroughs corporation * 

* and is not to be reproduced* used# or disclosed * 

* Except in accordance with program lincense or upon * 

* written authorization of the patent division of * 

* burroughs corporation* oetroltf michigan 48232 * 

* * 

* COPYRIGHT (C) 1971* 1972* 1974 * 

* BURROUGHS CORPORATION * 

* AA320206 AA3866^7 AA332366 n} 

BEGIN X CANDE/TSHAKER LAST REVISION U»72 



DEFINE VFINISHED • 00#; 

DEFINE VHELLO ■ Ol#; 

DEFINE VBREAK « 02#; 

DEFINE VWRU - 03#; 

DEFINE VLINECLEAR * 04#; 

DEFINE VDISKCHUNK » 05#i 

DEFINE VDISCONNECT « 06#; 

DEFINE VINPUTDATA * 07#; 

DEFINE VBREAKCLEAH • 06#; 

DEFINE VRESTARTIT » 09#; 

DEFINE VMCPUSE != 10#; 

DEFINE VLISTnEWS s 12#; 

DEFINE VMCPMSG « I4f; 

DEFINE VCOBLIT » 15»; 

DEFINE VMCPQK » 16*; 

DEFINE VTEACHER » 25#; 

DEFINE VIN»UT * 26#; 

DEFINE VDISPATCH » 27#; 

DEFINE VDI8KREA0 » 28#i 

DEFINE VReSTART « 29#; 

QCFINE VQOf»S « 3011 

DEFINE VOOQCATCHER • 3l#; 

DEFINE VCOMPILEIT « 32#| 

DEFINE VSETUPFIlES » 33#i 

DEFINE VER«OR * 34#; 

DEFINE VClOSEWORKTABLE* 35#; 

DEFINE VCHNGPSWD • 36#i 

DEFINE VTIME « 37#i 

DEFINE VCC ■ 38#i 

DEFINE VCHNGNAME 9 39«; 

DEFINE VMONITORR « 40#; 

DEFINE VSET » 4l#| 

DEFINE VSSFILE " 42#J 

DEFINE VEQUATE » 43#; 



% DUMMY CALL IN HITHERE 



% LABEL EQUATION 



00000100 

oooootoi 

00000102 

00000103 

06000104 

00000105 
00000106 

00000107 
00000108 
0i000}09 
00000110 
OOOOIOOO 
START OF SEGMENT 
00001100 
00001200 
00001300 
00001400 
00001500 
00001600 
09001700 

oeooidoo 

00001900 
00001950 
09002000 
00002050 
00002100 
09002110 
09002120 
00002200 
00002300 
00002400 
00002500 
08002600 
0000S700 
00002800 
00002900 
OS003000 
00003100 
00003200 
03003900 
00003301 
00003310 

00003312 
00003314 
00003316 
00003318 
00003320 



0000 
0000 
0000 
0000 
0000 

0000 
0000 

0000 
0000 
0000 
0000 

0000 

********* 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



DEFINE 

DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 

INTEGER 

SAVE AR 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

REAL 

DEFINE 

X 

X 

800UEAN 
DEFINE 



VSTATUSCHECK «» 44#; 

VSSMSG 

VPOIT 

VCOHY 

VSEQ 

VBYE 

VMAKE 

VIIST 

VEXECUTE 

VLOAO 

VSAVE 

V8EM0VE 

VCHINGE 

VRENAME 

VWHATS * 

VTYI»E « 

vauARD « 

VLOCK ■ 

VTAPE « 

VPRINT • 

VCHIRGE » 

VScHEDULE « 

VSTATUSSTOP » 

VLFILES « 

VUPDATE » 

VREPUACE " 
CALLtCALLU* 
X 

common; 

RAY LtOt303i 

STUFF»«U#; 

FF » tlSIl 

CR«0#* IF9 

NO • NOT#; 
MAXLINES « 12»; 

IDUETIME « 

UtWORDS m 

TBLSZ "go* 
DISKBOTTOM 



50#; 

5i#; 
52#; 

54*; 

55#i 

56#; 
57#; 
58«; 
59«; 
6i#; 

62*j 

63#; 
64«; 
65#; 
67«; 
68#; 
69#; 
70«; 
7i»; 
72#; 
73#; 
74«; 
75#; 
76 #; 

lAMjuQ*; 



% FOR UNUSED CASE STMTS 



5]#« CF » t33ll53iltj XF FIELD 4 C FIELD 

3«10000l"## CRLF«l## NQCRLF»3«100000"#; 



X # OF LOGICAL LINES TO BE HANDLED. 

360000#; 
100*; X NO OF WORDS PER LOGICAL LINE, 
; X WRKTBL SEGS MAX C 17+CHKPOlNT ) , 

i % FOR DIRECTORY SEARCHES, 



*0»03" 



VOID 
VOID 



NUM0FVERB5 
NUM0FTYPE5 



< 49*« 



X NUMBER. OF TYPE WORDS 



numofheswrds 
flags; 



II 30 »; X NOt OF RESERVED WORDS (NOT VERBS) 



WECANUSEOATA m FLAGS. [HU # 

NQDATA » FLAGS. C2tn * 
NOOATAREQUESTED « FLAGS.CSm i 
NOntes e FLAGS. C4in * 
NOTANKS B FLAGS, C5IU * 
WENEEDTOCOOLIT * FLAGS, C6lU* 
TIMETOOKHNES m FLAGS, C7tU* 



;boolean dogsaROund xxxxxxxxxxxxxxxxxx temp xxxxxxxxxxxxxxxxxxxxx 



DEFINE 



TELETYPE «» 0*# 



00003330 

00003400 
00003500 

00003600 
00003700 
00003300 
00003900 
00004000 
00004100 
00004200 
00004300 
00004500 
00004600 
00004700 

oioo4aoo 

00004900 
00005^00 
00005200 
00005300 
0B00S400 
000054S0 
00005500 
00005600 
00005700 
00006390 
00006395 
00006400 
00006500 
00006600 
00006700 
00006900 
00007600 
00007700 
00007800 
00007900 
00006000 

ooooetoo 

00008200 
00008300 

00008400 
00O0B5O0 
00008600 
00008700 
00008750 
00008800 
00008900 
00009000 
00009100 
00009200 
00009300 
00009400 
00009500 
00009510 
00009520 
00009600 

00009700 
00009730 



0000 

0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 

0000 
0000 
0000 
0000 
0000 
0000 

0000 

0000 
0000 
0000 
0000 
0000 

0000 

0000 
0000 
0000 
0000 
0000 
0000 
OOOl 
000 1 
0001 
0001 
0001 
0001 
0001 
OOOl 
0001 

OOOl 
OOOl 

OOOl 
OOOl 

OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 

OOOl 
OOOl 



•* .^ 



CONRAC 

TC500 

BIOS 



' 3#; 



XPAQC 

SAVE 
SAVE 
REAt 
REAL 
REAl 
REAL 
REAL 
REAL 

HEAL 



X 

ARRAY 
ARRAY 



% VOID 



X TO VOID A 



REAL 
REAL 
REAL 
DEFINE 



ttyinput [01293; x input data from 
work t0»59]; x i/o processing 

dataoffsett* datawordsf datadiskloc; 
rowinuse*oogcatchers*rowcount*timenow; 
nudcount; 

x contains abs disk loc mesagesi 
x disk aodr of tank/disk, 

X ROW SIZE OF TANK FILE. 



LiNEMTNCE, 
AREA 



msgfileloc; 

tankfile; 

tanksize; 



LL 

llprev 

CLOCK 

clockprev 

WAIT8IT 
REASON 
ASTOR 
DATE 
CARD 
lAM 
DOING 
WANT 
ERRSW 
BASE 
TEMP 

paRam 

WAITFQR 

prevrcw 

USERBASEf 
SREG 



; 



X LOGICAL LINE NO CURRENTLY BEING HANDLED, 

X LOGICAL LINE NO PREVIOUSLY HANDLED, 

X CONTAINS PROCESSOR TIME USED, 

X PREVIOUS PROCESSOR TIME USED, 

X WAIT INDICATOR FOR NEXTEVENT. 

X REASON FOR THIS EVENT ENTRY, 

X CONTAINS # FOR TTY RESPONSE 

X DATE — MM/DD/YY 

X0523- 
X CALLING PROCEDURE NO, OH NEXT OPERATION, 
X CALLER^S CASE OR SWITCH VALUE, 
X REQUESTED OPERATION NO, 
X IF AN ERROR IS ENCOUNTERED, 
X BASE OF LU SCRATCH AREA, 
X TEMPORARY WORDS USED BY A PROCEDURE, 
X PARAMETER COUNT BEING PASSED TO PROCEDURE 
X CONDITION RE«D BEFORE RETURNING, 
X POINTS AT LATEST RcW FOR THIS LINE, 
X BASE ADDR OF USERS/CANDE X0521- 

X'^STACK" REGISTER FOR ACCESSING ARRAY WOS, 



sew* rcwj x stack control word* return control word, 
stacksize»processlimit*iolImit#coresize#commonvalue; 
workadrs#workendaors; x pointers to work array 



SCWWAITBITS 9 tlOl73 
SCWWAIT • SCW,C10I73 



scwprev 

SCWBA5E 

scndoing 

SCWIAM 



5CW.C17I83 
SCW,C25«83 
SCW,C33I73 
SCW,C40<83 






X 

X 
X 
X 
X 

X 



RCWSREG » 

RCWPARAM ff 

RCWTEMP » 

RCWBASE « 

RCWDOING « 

RCW I AM 9 
0£F4HE. ESPTABLESIZE • ftO#i % INCREASE 
ARRAY ESPTA8LEtO»ESPTABLESIZE3l » ESP 
ARRAY CTRANOBASE tOU53; 
ARRAY DOGHOUSE [01 MAXLINCS J J 

ALPHA ARRAY VERBTABLE C OI2xNUMDFVERBS] » 



RCW, [03(63 
RCW,CU'73 
RCW,C18I73 
RCW,C25ie] 
RCW, [33173 
RCW,[ftO»83 






X 
X 
X 
X 

X 
X 

THIS IF 
SEGMENTS 



"NO ROOM" ERRORS 
FOR LABEL EQUATION 



000OV740 
00009730 
00009760 
00009600 
00009900 
00010000 
OOOIOIOO 
00010200 
00010300 
000103SO 
00010400 
00010500 
00010600 
00010700 
00010600 
00010900 

oooiiooo 
oooiuoo 

00011200 
00011300 

oooiiaoo 

00011500 
00011600 
00011700 

oooiieoo 

00011900 
00012000 
00012100 
00012200 
00012300 
00012400 
00012900 
00012510 
00012600 
00012700 
00012800 

00012810 
00012820 
00012900 
09013000 
00013100 
06013200 
00013300 
00013400 
00013500 
00013600 

00013700 
00013800 
00013900 
00014000 
00014100 
00014200 
00014300 
00014310 
00014500 
00014600 
00§14700 



0001 
0001 
0001 
0001 
0001 
0001 
0003 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0U05 

0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0007 
0008 
0010 



H 



«EAL 
REAL 
DEFINE 



REAL 

COMMENT 

DEFINE 

DEFINE 

DEFINE 



ARRAY 
ARRAY 
X 



ARRAY 



TYPETABLE CO! NUMOFTYPES 3# 
RESWRDTABIE CO INUMOFRESWROS^-l]; 
EVENTS C0I43; 
EVENT COI203i 



% OUR EVENT AREA, 
X MCP EVENT AREA. 



EVENTSC03.C25I83 
EVENTSC0],C18I73 



EVENTUl • 
EVENTREASON » 

i X 

LINE coimaxlines^ojllwordsj; 

THE FOLLOWING DEFINES ARE USED TO 
TBASE »0#i X BASE FOR TBL ENTRIES 
SBASE » 49#; X PROCEDURE STACK BASE 



X LOGICAL LINE INFO, 
ACCESS LINE ARRAYWQRUSJ 



LLINFO « 
LLDISKREAD" 
WAITINGSCW* 
MSGPOJNTERw 
MSQPTR « 
MSGPTRLOC • 
USERLOC «< 
USERCODE « 
UCLOC 

RLCW * 
CHARGE ■ 
LQGONTIME • 
PTIME » 
PTLOC • 
INPUTCTR * 
FILENAME « 

DEVICE m 
PREVM5G « 
INCREMENT ■ 
SEQLAST ■ 
SEQIN 

LASTRECORD* 
TABLEINFO » 
UPOATEBIT » 
TPDKREL • 
TPREC « 
TPENTRY m 
TPCQUNT • 
WRKT8LA0R • 
TPOKAOR « 
FILETYPE « 
SOURCEFILE* 
ESPl • 

ESPa • 
RUNl * 
RUN2 » 

OBJECTPILE* 
LI8MSQCTR a 
ETIME • 
SCHEDNAME ' 
TIMEL1MIT5» 
N0TIFY8IT ■ 
NOTIFIED • 
NQTIFYTIME 



Acm 

AC12] 
ACUJ 
AU43 
AC143 
H 

AC15] 
AC163 
» 16## 
Atl73 
AU83 
AC193 
AC203 

20 
AC213 
AC223 
AC233 
AC243 
AC243 
AC253 
AC263 
AC273 
AC283 
AC263 






X 

X 
X 
X 
X 
X 
X 
X 



LINE CONTROL INFORMATION, 
ADDRESS OF DISK SEG TO BE READ. 
HOLDS CURR SCW DURING A WAIT, 



ADOR OF USER REC 



X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



STORED 
CHARGE 



*» 

«/ X 
*» X 

C2ia3 $» 

TABLEINFO, C24t63 »« 
TABLEINFO, C30l23#^ 
TABLEINFO, C32l43## 
TABLEINFO, C36;123*# 
AC293 »» 
WRKTBLAOR 
AC 30] »» 



VALUE OF CURRENT 
CODE IF USED. 



LCW 



PROCESSOR TIME USEO ON THIS LL . 
LOCATION OF THIS LINES PTlME, 
NUMBER OF INPUTS WE RECVD. 

NAME OF THE "WORK" FILE 
TYPE OF REMOTE TERMINAL 
MESSAGE BEFORE NO DISK OCCURRED 



DATA FILE RECORD COUNT 
CONTROL WORO FDR WORK TABLE 
X UPDATE IN PROGRESS 
X REL SEG ADDR 
X ID WO REC IN SEG 
X WHICH OF 10 IN REC 
X NUMBER OF ENTRIES 
X A6S DISK AOOK FOR WORK FILE 
TPDKREL i# X CURR WRK FILE ADDR 



AC3I3 
AC323 
AC333 
AC343 
AC353 
AC363 
AC373 
AC383 
AC393 
AC393 
AC393 



Of 

• » 
#f 
*f 



AUTHORIZED 
t2in ## X "ON" 
BOOLEANCNOTIFYBIT) ## 

n AC403 »« 



X TYPE OF FILE WORKING ON 
X NAME OF CURRENT SOURCE FILE 
X ADDRESS OF FIRST ESP SEG 
X SECOND ESP SEGMENT 
X FIRST NAME OF THING RUNNING 
X LAST NAME OF THING RUNNING 
X NAME OF CURRENT OBJECT FILE 
X NO OF LIBMTNCE MSGS, 
X EXECUTION TIME, 
NAME OF SCHEDULE FJlE 

TIME PERIOD 

WHEN NOTIFIED 



00014800 

00014900 

00015000 

00015100 

00015200 

00015300 

00015400 

00015500 

00015600 

00015700 

00015800 

00015900 

00016000 

00016100 

00016200 

00016300 

00016400 

00016500 

00016510 

00016600 

00016700 

00016800 

00016900 

00017000 

00B17100 

00017200 

00017300 

00017400 

00017500 

00017600 

00017650 

00017700 

00017800 

00017900 

00018000 

00018100 

00018110 

00018200 

00018300 

00018400 

00018500 

00018600 

00018700 

0«OI8800 

00016900 

00019000 

OOOJVIOO 

00019200 

00019300 

00019400 

00019500 

00019550 

00019560 

00019600 

00019602 

0O0196O4 

00019606 



0014 

0015 

0018 

0020 

0022 

0022 

0022 

0022 

0022 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 



TIMERE.STRICTB1T » A[393,C3U3 t» 
RE5TRICTE0LANGUAQE5 " A£4n #' 
RESTRICTEDVERBS « At«2]#» X AND A[433 
GRACEPERIOO a 0,25 »* 



% 
BOOLEAN ARRa¥ 
COMMEnTi 
DEFINE 



lOTOT 1 AC44] #, % TOTAL JQ TIME FOR THIS LL 

o AC45] «# 

« AC463 #* X NEXT SEQ NO, FUH BLOCK XMI5SN 

» AC473 f* % USERS "SPECIAL" OPTIONS 

» AC483 #* X LABEL EflUATION INFO 

5 £$PW0RO,[lin*» 

=¥ ESPW0HD.C2l8]f* 

«» ESPW0R0.C20I283#; 



COMMONCELL 

CHKSEUNMBR 

OPTIONBITS 

ESPWORD 

ESPFLAG 

ESPCOUNT 

FIRSTESP 



LLCONTROL COIMAXLINESJ; X LOGICAL LINE CONTKOLt 

THE FOLLOWING DEFINES ACCESS LLCONTROLi 

LCW • LLCONTHOLtLL] #* X LINE CONTROL WORD. 



DEFINE 
DEFINE 
DEFINE 



LOGGEOON 

ALLDONE 

BUSYLINE 

lOLELlNE 

INITIATEOWHILEBUSY 

SEQMODE 

EQUATED 

OATAENABLEU 
INQUIRY 

RESTARTNEEDED 

WRITEASTEHISK 

FILESOK 

GQOOOBJ 

BO«JMSG 

EOJMSG 

RUNNING 

COMPILING 

LIBMTNCE 

ALLMCPM5G 

DISCONNECTING 

BREAKORMRU 

113 

RESTART 

SAVEOWHILEINITBUSY 

OOQLICENSE 

LQGGINGON 

NOOISKMCP 

CQNTINUEBIT 

MONITORBIT 

NOSTOP 

SCHEDULINE 

SCHEDULINR 

NOSAVE 

ALUTHINGS 

THINGSLAST 

THINGSLINK 

THING5T0D0 

; 

B « BOOLEAN »j 
R » REAL #; 
CONCISEBIT 



LCM, 
LCW, 
LCW. 
NOT 
LCW, 
LCW, 
LCW, 
LCW, 
LCW, 
LCW, 
LCW, 
s lew, 

• LCW, 
« LCW, 
' LCW, 
» LCW, 

* LCW, 

* LCW, 
» LCW, 
s LCW, 

• LCW, 
134 

LCW, 

icw, 

LCW, 
LCW, 
LCW, 
LCW, 
LCW, 
LCW, 
LCW, 
REAL 
LCW, 
LCW, 
LCW, 
LCW, 

LCW, 



9 

n. 

3 

m 
m 

9 



OIU 
0211 
0311 
BU5YL 
0411 
0511 
06 11 
0711 
0611 
0911 
lOtl 

nil 

1211 
1311 
1411 
1511 
1611 
1711 
1315 
1811 
1911 

2011 
2111 
2211 
2311 
2411 
2511 
2611 
2711 
2811 



» 
$ 

NE 
« 

# 

# 
* 
# 

# 
» 
« 
» 

« 
« 



X 
X 
X 

«x 

X 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



LABEL EQUATED 



147150 



# 

f 

» 
# 
f 
» 
# 



X 
X 
X 

X 
X 



XDONT 
X 



STOP SCHD, ON ERR 



SCHEDULINE) # X 
29113 # X 
30lie}f X 
301063* X 
36I063# X 
42163 » X 



OPTIONBITS, C1I13## 



00019608 

00819610 

00019620 

00019622 

00019624 

00019626 

00019627 

00019628 

00019630 

00Q19632 

00Q19634 

00019636 

00019700 

00019900 

00019900 

00020000 

00020100 

00020200 

00020300 

00020400 

00020500 

00020600 

00020700 

00020800 

00020900 

00021000 

00021100 

00021200 

00021300 

00021400 

00021500 

00021600 

00021700 

00021800 

00021900 

00022000 

09022100 

00022200 

00022300 

00022400 

00622500 

00022510 

00022520 

00022530 

00022540 

00022550 

00022580 

00022585 

00022590 
00022600 
00022700 
00022800 
00122900 
09023000 
00023100 
00023200 
00023202 



0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0026 

0026 

O026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 



DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 



DEFINE 
DEFINE 
DEFINE 
DEFINE 



DEFINE 

DEFINE 
DEFINE 

DEFINE 



CQNCIijE s 

HELPFULBIT • 

HEUPFUL • 

QUICKUOQBIT « 

QUiCKtOQ s 

QUICKBYEBIT m 

QUICKBYE «J 

ALLOWMSGBIT m 

AILDWMSG m 

CCLONQBIT • 

CCUONG 9 

HELPTOGGUE s 

NORETRY • 

UNUOCKTOGGIE « 
UEFTARROW « w*" 
QMARK m U |; 
WORDS m "W i» 



8(C0NCISEBIT)## 

QPTI0NBITS.C2II]#* 

eCHEUPFUUBIT)*/ 

DPTJ0NBlTS.t3IU#* 

BCQUICKI.QGBIT)## 

0PTI0NBIT5,t*«n#* 

BCQUICKBYEBIT)** 

0PTI0NBIT5,C5I13#* 

BCAUtOMMSG6IT}*« 

OPTlONBlTS.t6in#* 

BCCCLQNGBIT}»# 

0PT10N8ITS.C7U3** 

OPTIONBITS.C8U3** 

OPTlONBITS,t9ll3#; 

«; 

% 12 ■ 14 OCT 
CHARS m "C" »* 



s OUEi»TION MARK 



iNC(iNcn» INCH" iNci*i #; 

UPS ■ SI t* SI + I «f 
DI ♦ i «# 
l» TAULY ♦ 
« INCBI Is 
« OECRl »• 
« DECBl t» 



UPO a 01 J* 

UPT • TALLY 
INCBCINCBU 
OeCRtOECRU 
DECBCDECBn 



MATCH(MATCHI,MATCH2)» 



BOOLEAN 
OECRl • 
BOOLEAN 
IF 



C0MPAR(C0MPARl,C0MPAR2) ■ 

REAi.<BOOLEAN(COMPARI) EQV 

TEN8 • lOOOOOOOO #i % 



(REAL 

1 #; 

(REAL 
REAL(BQOLEAN(MATCHU 
EQV B00LEAN(MATCH2}} 
REAL(N0T FALSEJ THEN 



(INCBI) ♦ n #i 
(OECBU • I) »l 



boolean( compare ))areal( nut false)!/ 
Ten to the eighth 

Q0£RR(G0ERRl*G0ERR2)»»BEGlN ERRSWIwGOERRWMSQPOlNTERI'* 

Q0ERR2; WANTI»WAlTFORl»0; IAM»»VERROR; GO ExlT; ENO#; 
SCHEDERROR a 

BEGIN 

LINECLEAR(LCW*AC*3); SCWBASEUBASElPSBASEi 

W0RKC03I"REAL(N0T FALSE); M56PTRl«o; 

lAM \n VTEACHERi OOlNGmU 

GO TO exit; 



END*; 
DEFINE SCRAMBLE ( SCRAMBLE 1' SCRAMBLES )«(-2x 

(CSCRAMBLEl,Cl»23 3+SCRAMBLeitC24l243) 
(SCRAMBLES, CH233*SCRAMBLE2,C24 1243) 

DISkB0TT8M)I» 
- - MOUUtuS B-l 3.# * DiRMQ0»l69i| 
REAL system; 
ARRAY SCANPTRC0I(LLW0RDS-S8ASE)3; 



MOD 
MOD 



MODULUS X 
MODULUS)* 



MODULUS * 



% POINTERS TO WORK ARRAY 



X***«**4,*************«*4r#******«********llr********************ik***A****** 



COMMENT 



DOCUMfcNT 

THE ARRAY TqBEDONE IS USED TO 
DONE FOR A LINE BUT MUST WAIT 
CANNOT HANDLE THIS INFO NOW, 
TOBECONTROL » CONTROL WORD AS 
3»« « COUNT OF NUMBER OF ROWS 
12I36» BITS INDICATING ROW USED IF ON, BIT 47 » ROW 0, 
EACH ROW CONTAINS* 

WORD s 316 8 NEXT RQW WITH INFO FOR THIS LOfilCAL LINE, 
121368 AND WORD TO TURN OFF BIT IN TOBECONTROL. 



STORE THInQS THAT HAVE TO BE 
BECAUSE TH^ LINE IS BUSY AND 

FOLLOWS 
USEDi 



00023204 

00023206 

00023208 

00023210 

00023212 

00023214 

00023216 

00023218 

00023220 

00023230 

00923240 

00023250 

00023260 

00023270 

000S330Q 

00023400 

00023500 

00023600 

00023700 

00023800 

00023900 

00024000 

00024100 

00024200 

00024300 

00024400 

00O24SO0 

00024510 

00024520 

00024600 

00024700 

00024800 

00024810 

00024820 

OOO24830 

00024840 

00024850 

00024860 

00024870 

00625000 

00025100 
00025200 
00025300 
00025400 
00025500 
00026000 
00027000 
00027U0 
00027120 
00027130 
00027140 
00027150 
00027160 
00027170 
00027180 
00027190 
00027200 



0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0029 

0029 

0029 

0029 
0029 
0029 
0029 
0029 
0029 
00S9 
0029 



1-15» 10 WORDS INPUTDATA AND 5 WORDS OF EVENTS INFO 



tobecontrol; 
tobedone c0i35*0i203; 



REAt 

REAL ARRAY TUOtUUNt lU • 35*0« 2U J ,» 

BEGIN % TO SEGMENT THE JNIT CODE. 



PROCEDURE 



VALUE 

REAL 

REAL 



xnote% 



DISKlO (REASON) 



33|7«REAS0N N0» '♦OIBw LOGICAL LINE. 



"(REAOFLAG) " I m READ* « WRITE. 

"(A? " DISK I/O AREA, 

"(OFFSET) •♦ OFFSET INTO I/Q AREA, 

"(SIZE) " NO OF WORDS TO READ/WRITE, 

"(0I5KA0DRE5S)i 

REASON* READFLAG* OFFSET* SIZE* OISKADDRESS; 
REASON* READFLAG* OFFSET* SIZE* DISKADDRESS; 
a; X ARRAYtOS ♦ OFFSET m AREA WHERE I/O STARTS, 

X IF OFFSET NEQ THEN A+OFFSET"! GETS DESTROYED.* 
COMMUNICATE (-1)1 



00027210 T Q029 

00027220 T 0029 

00027300 T 0029 

00Q27400 T 0029 

**X 00027500 T 0031 

00029900 T 0031 

00S30000 T 0031 

00Q30100 T 0031 
START OF SEGMENT *******< 

00030200 T 0000 

00030300 T 0000 

00030400 T 0000 

00030900 T 0000 

00030600 T 0000 

00030700 T 0000 

00030800 T 0000 

00030900 T 0000 

00031000 T 0000 

*** 0003U00 T 0000 

00031200 T 0000 



X************«*****************«*************************************tk** 

Real comM2; % used to store c0mmunicate(-2) to release cOqe segment 

X********************ik**********************4r**********«***************X 

procedure NEXTEVENT (WAlT8lT*CL0CK,A)i X A[03* OU-FLAG BIT ■ 0, 

X X m-SlGN BIT m 0, 

REAL WAITBIT* clock; X 212-00 NOT TOUCH, 

ARRAY At03; X 1817-REASON NO. 



WAITBIT* clock; 

At03; 
BEGIN LABEL DUMMYi 



end; 



COMMUNICATE (-2); 



2SI8-L0GICAL LINE, 



00031210 T OOOl 

00031220 T OOOl 

00031300 T OOOl 

00031400 T OOOl 

00031500 T OOOl 

00031600 T OOOl 

00031700 T OOOl 

00031750 T OOOl 
START OF SEGMENT 
00031800 
00031850 



4 IS 



********** 
T 0000 
T 0000 
I LONG, NEXT SEG 



COMMENT 



X 
WHEN 



WHEN 



THIS PROCEDURE IS 
WAITBIT MUST BE 



THE MCP 
WAITBIT 



CALLED! 
1 IF WE WILL WAIT FOR AN EVENT, 
IF WE 00 NOT WISH TO WAIT, 

RETURNS TO THE PROGRAMI 

WILL BE I IF AN EVENT IS BEING RETURNED* 
IF NO EVENT AND NO WAIT; 



IF NO EVtNT AND NO WAIT; 
X*********************************************************************«^ 
REAL PROCEDURE GETESPoISK; COMMUNICATE CS); 



00031900 
00032000 
00032100 
00092200 
00032300 
00032400 
00032500 
00032600 
0Q032700 



OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 

OOOl 
OOOl 



X************************************************************«**«****A4,|; 
PROCEDURE FORGETESPOISK(ADDR); VALUE AODR; REAL AODR; COMMUNlCATE( -4); 



00032800 T 0004 
00032900 T 0004 



PROCEDURE REQUESTINPUT(BUFF); ARRAY 8UFFC03; COMMUNJCATEt-S); 



00033000 T 0006 
00033100 T 0006 



X REAL PROCEDURE GETUSERDISK (N)/ VALUE Nj REAL N; COMMUNICATE (-6;; 
PROCEDURE FQRGETUSERDISK CA*N); VALUE A,N; REAL A#N; COMMUNiCATE (-7); 



00033200 T 0007 

00033300 T 0007 

00033400 T 0007 

00033500 T 0007 



PRQCEDUrE OTSKWAIT(IQjAREA«MOS«ADDR)J 



PROCEDURE 0ISKWAIT(10*AREA#W0S*ADDR); 

VALUE io#wd§^aodr; 

REAL I0«WDS#ADDR; 

array areacoj; 

COMMUNICATE (-8); 



00033600 
00033700 
00033600 
00033900 
09034000 
00034100 



0006 
0008 
0008 
0008 
0008 
0008 



x*********«****************************« 

% PROCEDURE CONTROLCARO (R,A); vAluE R; 
% COMMUNICATE C-9); % HEASONwR 



r*****************************4r;t 



ARRAY ACOj; REAL R^ 
«t33l7], LL«Rtt40J83 

REAL code; COMMUNICATE ClOi^ 



% PROCEDURE SEtuSER CCOOE); VALUE CODE; .,^«.. ,««^, v«...-w.,*^" . w v *v,, 

define di ' ~ ■ " 

01 

x*«******** 

DEFINE 

X********** 

PROCEDURE T 

I 



SK0UT(DISK0UTI#013K0UT2)» X 
SKl0(LL&i3C33»41!7]»0'W0RKCO3f0#0l!&K0UT2#OISKOUTl)*> 



DISKWRITECDISKWRITEU » X 
0ISKIQCLL&13C33i41l7]» 
***************************** 

WXOuT CR*A*N#T); VALUE R#N*T; 

F NOT DISCONNECTING THEN X WR 

COMMUNICATE (-12); X TtCFw 



00«WQRKCO]»0Of30«DISKWRIT£n $i 

*****************************x 

REAL R#A«NfT; 
ITES ARE O.Ki 
# OF LF5*T.FF»1 FOR NO CR 



00034200 




0009 


00034300 




0009 


00034400 




0009 


00034^00 




0009 


00034600 




0009 


00034700 




0009 


00034800 




0009 


00034900 




0009 


00033000 




0009 


00035100 




0009 


00035200 




0009 


00035300 




0009 


00035400 




0009 


00035500 




0009 


00035600 




0010 



X********************************************************* 

X 

PROC 
X 



***********x 



♦A*****************************"************************************* 

EAL LiTOUTSTOREi X KEEPS CHARACTERS BEiNq OUTPUT BY LITOUT 
**********************************************************************X 

rocedure lJtout (x*cr); value x#CRi REAL x*cr; 

**************************************************************** 
BEGIN 



BEGIN 

STREAM PROCEDURE eLANK(X#Y)i 

BEGIN 

sii«xj oi«*y; osi»wos; DH'oi'e; sn»si-8i 

?(if sc^^o" then jump out; dsi'lit" "i slmsuu' 

End; 



00035700 
00035750 
00035775 
00035800 
00035900 
00036000 
00036050 
START OF SEGMENT 
00036100 
00036150 
00036200 
00036250 



T OOll 

T OOll 

T OOll 

T OOll 

T OOll 

T OOll 

T OOU 

********** 

T 0000 

T 0000 

T 0001 

T 0004 



BLANKCX* LiTQUTSTOREJi 
TWXOuTCLU* LITOUTSTORE* 8^ CR)) 

END uitout; 



00036300 T 

00036350 T 

00036400 T 

IS 8 UQNG, 



0004 

0006 
0007 
NEXT SEG 



PROCEDURE CC15 (R#F#N*U»U'T*X J; VALUE R*F»N*L*U'T*Xi 
REAU R#F*N«l.'U*T#Xj 
COMMUNICATE (-15); 



00036500 T OOU 

00036600 T OOU 

00036700 T OOU 

00036800 T OOU 



DEFINE C0M15CC0M151*C0M152*C0M153,C0M154#C0M155,C0M156J 

BCCl5(C0Ml5l#C0Ml52»C0Ml53*CQMl54*C0Ml55#C0Ml56#0 
DEFINE C0M157«CC15#; 



}«; 



DEFINE FIND(FINDI*FIND2*FIND3*FIND4*FIND5) 

■C0M15(FINDI*FIND2#FIND3*FIND4/FIN05#15)#; 

COMMENT—ON RETURN! 

EVENTSCn* PROTECT CODE (SAME AS ALGOL SEARCH) 
E2]»C1U3«' INTERLOCK 

,n8U53«« HEADER ADOR 
,[36l6]w FILE TYPE 
,C42«63« OPEN COUNT 
t33» EOF COUNT 
C43» ADDR OF 1ST RECORDS 

DEFINE MAKEFILE «C0M15#> 

X EVENTSU3* ADDR OF 1ST RECORD 
X EVENTSC23* HEADER ADDR 

X**********************4******************************************* 

DEFINE STAATUS(STAATUSI*STaaTUS2#STaATUS3#STAATUS4)" 

CC15(STAATUSI*13#STAATUS2#STAATUS3*STAATUS4#0#0)#; 
X ON RETURN! 

X EVENTSCn«PROCESS TIME ( •! IF NOT RUNNING ) 
X EVeNTSC21»I0 TIME 

X EVENTSt33«»CONTENTS OF R*27 ( IF COMPILING ) 
X***************************************************i 

PRDCEDURl LQGQN (LCW#AJ; 90QLEAN LCW; ARRAY AC03; 
BEQIN LABEL dummy; 

LOGQEOON !• true; 

LOGONTIME l» TIME(n; X SAVE START TIMEt 

ESPi !» qetespdisk; e5p2 !« qetespdisk; 

IF NOT SCHEOULINE THEN X LET 5CHED CALL LOGON, 
COM15(LL«13[33I41!7],2*USERCODE*CHARQE#0#IDLETIME); 

END logon; 



I**** 



00036820 
00036840 
00036860 

***** 00036900 
09937000 
00037100 

•-— 00037200 

00037300 
00037400 
0003/500 
00037600 
00037700 
00637800 
00137900 
00038000 
00038100 
00638200 
00038300 
OO03B400 
00038500 
00038510 
00038520 
00038530 
00038540 
09038550 
00038560 
00038900 
0003900Q 
00039050 
START OF SEGMENT 
00039100 
00639150 
00039200 
06039290 
00039300 
00639400 
6 IS 14 LONG* 



0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 

0013 
0013 

0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 

0013 
0013 
0013 
0013 
0013 
0013 
********* 

0000 
0002 
0004 
0007 
0008 
0012 
NEXT SEQ 



X****** 



************************************************************ 



00039500 T 0013 



PROCEDURE tOGOFF(LCw*A)# BOOUEAN UCw; 
BEGIN LABEL OUMHYi 



ARSAY ACOi; 



IF LOGGEDUN THEN XESP TO GIVE BACK, 

BEGIN LOGGEDQN l« FAL^Ei 

IF ESPl NEQ THEN F0RQETESPDI5K( ESPU^ 

IF ESP2 NEQ THEN FORGETeSPOI SKCESP? ) j 

C0M15CLL&l3t33»4ll7]#2'U5ERC0DE»CHARQE.tlHlJ*i*36O0); 

END IF LOGGEDON; 

ENO logoff; 



START 



00039600 T 0013 



00039610 
OF SEGMENT 
00039620 
00039700 
00039800 

00039900 
00040000 

00040050 
00040100 



T 0013 

********** 



0000 
0000 
0003 

0006 
0006 

0013 
0013 



7 IS 15 L0NG# next 5EG 



%****^|*i,^|*******^|*1'****1t1l*1,1ti,1,^,1,*^^1,^,1,^,^,^,*^,^,^,^,1,1,^,1,^,^,^,1,1,^,^,^,^,i,1,1,i,^,1,^,1,1,^,^,^,^,^ 



DEFINE 

X****** 
DEFINE 

X****** 
DEFINE 

X****** 
DEFINE 

X****** 
PROCEOU 



SCHEDGaTOtSCHEOGOTOn* 

C0M15(LL4l3t33l4l«7 3#9#SCHED60T0l»0#0#0)#i 

REQUEST IP( REQUEST IPU* 

COM15CREQUESTIPl&13t33»4U73*lO,0#0#0#0)#; 
**************************************************************** 



SCHEOSTATCSCHEDSTATDw 

COM15CLL&IAM[33I41I73#U»SCHEDSTATI*USERCODE'0»0}#; 

****************************************************,k*A^ 

SCHEDSTOPCSCHEDSTOPDs 

C0M15(LL&IAM[33I41»7]*12*SCHE0ST0P1#USERC00E#0*0)#; 

RE OISCONNECTED(LL); VALUE Hi REAL LL; COMMUNICATE C-I6)i 



********* 



«*** 



00040200 
00040205 
00040210 
00040215 
00040220 
00040225 
00040230 
00040235 
00040240 
00040245 
00040250 
00040255 
00040260 
00040300 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
OOU 
0013 
0013 
0013 
0013 
0013 



PROCEDURE RUNJ0BCL^A,D); VALUE U*0; REAL L'A'D^ COMMUNI CATE( -19 ); 



00040400 T 0014 



PROCEDURE readtape<r#n*f,u);value r*n*f,u; 

C0MMUNICATEC-15)i 



REAL R#N,F/U; 



00040500 T 0015 
OOS40600 T 0015 




DEFINE REM0VEFILE(REM0VEFILEI#REM0VEFILE2»REM0VEFILE3J« 
C0Ml5CREM8VEFlLei*3»REM0VEFlLe2'REM0vEFILE3#0»O)#i 

DEFINE CHANfiEFlLE(CHANQEFlLEl*CHANGEFI|.E2,CHANGEFIuE3* 

CHANQEFlLEft#CHANGEFILE5)»CCl5 CCHANGeFILEI^S^CHaNQEFILES* »0518- 

CHANGEFILE3,CHANQEFILE4,CHANGEFILE5*USERC0DE) #; »0518- 

DEFINE BEiLAC.ECREPLACEl^REPLACE2# REPLACES, REPLACE4,REPLACE5#REPLACE6)« 
C0M157 (REPLACE l#4*REPLACE2f REPLACE 3*REPLACE4#REPLACE5#REPLACE6)#; 

X************** *********************** *«*******««**««i,*« 

DEFINE SECURC C5ECUREl*5ECgRE2#SECURE3#Si:CUR?:«) « »05l6- 

COMI57 (I.L4H C33»41I73#7*SECURE1^SECUKE2#USERCODE#5ECURE3#X0516" 



00040700 
00040800 
00040900 
00941000 
00041100 
00041200 

00041300 
00041400 
O0Q415OO 
00041600 

00041700 
00041800 
00041900 



T 
T 
T 
T 
T 
P 
P 
T 
T 
T 
T 
P 
P 



0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 

0016 
0016 
0016 



• f 



W^i 



SECURE*) »; X0516- 

PROCEDURE CCCOMCLL*UC*C)i VALUE LL*UC#C; REAL LL*UC*Ci 

C0MMuNlCATE(-17); % CARRIAGE CONTROL COMMUNICATE (C*l#LONQ) 



00042000 P 0016 

0Q043000 T 0016 

00043100 T OOU 

00843200 T 0016 



%**************tk**************************************************** 



**** 



B); 



BEGIN X TO SEGMENT THE NEGATIVE COMMUNICATESi 

XAAAAirik^*********************************************************** 

STREAM PROCEDURE MOVE (N)«NO 0F"( WC )"W»WOSf C»CHR FROM^CA)" TO "( 

X**********************************************************************!| 
VALUE N' WC; 

BEGIN 

LOCAL T^ 

SI*LOC N; Sl*5I + 6i DI*LQC TJ 0I«-DI+7; DS*CHRi 
DI* Q) SI«-LOC Wc; 5i*5I*7; 
IF SC« "W THEN 
BEGIN SI* a; DS* N WDS; 

T(DS*32 WOS; DS*32 WDS); 
END OF WORD MOVER 

ELSE 
BEGIN SI" a; OS* N CHR; 

T(05*32 CHR; 05*32 CHR); 
END OF CHAR MOVER 
END OF move; 



00949700 
00049600 
00649900 
00050000 

START OF SEGMENT 
00050100 
00050200 
00050300 
00050400 
00050500 

00050600 
00050700 

ooosoeoo 

00050900 
00051000 
0O05U00 
00051200 
00051300 
00051400 
00051500 



T 0017 
T 0017 
T 0017 
T 0017 

********** 



0000 
0000 
0000 

0000 
0000 
0001 
0002 
0002 
0003 

0003 
0005 
0005 
0006 

oooe 

0008 



X***************************************************************** 
STREAM PROCEOURE BLANK(X); 

x******************«********************************************** 

BEGIN 

nitmXi SllsXI 
7(IF SC-^O" THEN ELSE JUMP OUT^ OSlsLIT" "J UPS; ) 
END STREAM BLANK; 



00051600 T 0008 

00051700 T 0008 

00051800 T 0008 

00051900 T 0008 

00052000 T 0009 

00052100 T 0009 

00052200 T 0011 



9(<lr***********«**t***«**«******«r****************************************X 

Integer stream procedure oecconv coctv); 
value octv; 

BEGIN SitLQC QCTVJ OI^LQC OECCQNV; DS*8 DEc; 
END OF DECIMAL CONVERT* 



OQO543OO 
00054400 
00054500 
00054600 
00054700 



0012 
0012 
0012 
0012 
OOU 



X.t*.A*i**ttt****#** ******* *********************************************** 

PROCEDURE FIXUSER (CNTR/A,EXlT*BUMPCNTR); VALUE BUMPCNTR; X0501* 

INTEGER CNTR; ARRAY A [03; »0501* 

LABEL -Exit; boolean BUMPCNTR; »050l- 

BEGIN *0501- 



00054702 


C 


0014 


00054704 


C 


0014 


00054706 


c 


0014 


0QQ54708 


C 


OOU 


00054710 


C 


0014 



y 



REAu WORBi X0501- 

I 

INTEGER I#IBY6#IENGTH; X0501- 

integer stream procedure cquntzerq (A); vauue a; xosoi- 

BEGIN X0301* 

si»*toc a; taluyi»o; xosoi- 

8 (IF SC EOl "O" THEN BEGIN UPSi UPT END ELSE JUMP OUT); X0501- 

COUNTZEROIpTALLY; X0501- 

END OF COUNTZERO; X0501- 



00854712 C OOU 
START OF SEGMENT ********** 



06054714 
00054716 
00054718 
00054720 
00054722 
00054724 
00054726 



0000 
0000 
0000 
0000 
0000 
0004 
0004 



IF CW0R0»»A EINC (SREG)3).ti«53 EGt THEN 
BEGIN 

WOROI»DECCONV (WORD)J 
IF LENQTHI«A [INC (SREGn«C3l3] 

aOERR (WQR0*8); 
IF IU8"C0UNTZER0 (WORD) > 6 THEN 

QOERR (W0RD«8)J 
IF I EQU THEN It»U 
IF LENGTHI»I+LENGTH > 7 THEN 

QOERR (WQR0*8); 

IBYOIcI X 61 

A CSREG]l«0 & WORD 

A [SREQ] 
DECR (SREG); 
IF BUMPCNTR THEN 
INC (CNTR); 
END 



EQL THEN 



C6I48-IBY6IIBY63 & 
t6*I8Y6l6l(7-I)x63 



& LENGTH C3«45l3n 



ELSE 
END 



DECR (SREG); 

OF fixuser; 



X0501" 

*o5or 

X0501' 
X0501" 

xosor 

X0501< 
*050l' 
X0501' 
X0501' 
X0501' 
X0501' 
XOSOl- 
X0501" 
X0501' 
X0501" 
X0501' 
X0501' 

xosor 

X0501- 
X0501' 



9 IS 



00054728 


C 


0005 


00054730 


C 


0009 


00054732 


c 


0009 


00054734 


c 


OOU 


00054736 


c 


0014 


00054738 


c 


0020 


00054740 


c 


0022 


00054741 


c 


0028 


00054742 


c 


0030 


00054744 


c 


0032 


00Q54746 


c 


0038 


00054748 


c 


0039 


00054750 


c 


0042 


00054752 


c 


0047 


00054754 


c 


0049 


00054756 


c 


0049 


00054758 


c 


0051 


00054760 


c 


0051 


00054762 


c 


0051 


00054764 


c 


0053 


56 LONG* 


NEXT SEG 



X*********************************************************************** 

PROCEDURE blackout; 

X#***4kt**t*****it******************************************************** 
BEGIN REAL U 

STRIaM PROCEDURE BQ(l#W); VALUE U 
BEGIN 

Sif»L0C i; siissi+7; oii«w; dsi»chr; 
7CSii»si-i; psi»cHR); 

End STREAM PRgCEDURE Bo; 



00054800 T 0014 

00054900 T 0014 

00955000 T OOU 

00855100 T 0014 

START OF SEGMENT ********** 

00055200 T 0000 

00055300 T 0000 

00055400 T 0000 

00055500 T OOOl 

00055600 T 0002 



10 



FOR i»i»''M"*''W''#"#"#''»"#''«»'' 00 

BEGIN 

BoClfWORK); 

TwXOUTCLL'WORKC03'8fCR); 

End; 



00055700 T 0002 

00055600 T 0013 

00055900 T 0013 

09096000 T 0014 

00656100 T 0016 



END PROCEDURE BlACKOUT; 
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00056200 T 0017 
IS 20 LONQ« NEXT SEQ 



STREAM PROCEDURE CIEAR(A#N); VALUE tii 

BEGIN 
COMMENT CLEARS A ♦ N WORDS STARTING AT A + i; 

dima; DS»»e LIT "ooGO"; sii«a; osi«n wosi 

END CLEAR* 



00056300 
00056400 
00056500 
00056600 
00056700 
00056800 
00056900 



OOU 
OOU 
OOU 
OOU 
0015 
0015 
0017 



x***************************************************************** 



STREAM PROCEDURE TIMEUSEO(W*HmSTX); VALUE HMSTXi 



X VOID 



BEGIN LOCAL SV; 

OllPWi SII»LOC HMSTX; 
0SI»2 CHRi DSI«6 LIT " 
DSIB2 CHR; 0SIW6 LIT •• 
DSt«2 CHR; DS»»l LIT " 
DSI*! CHR ; 0SI«5 LIT •♦ 
DS»'»25LIT'' "; 

Ditww; dsi*i8FILl; syi«oi; 
=SV; diibw; dsisliT" "; 



************** 



END 



HRS# 
MIN# 



n : 



Sli 
TIMEU5EDI 



SEC"; 



0S?"25CHR; 05I»LIT leftarrqw; 



00057000 




0017 


00857100 




0017 


00157200 




0017 


00957300 




0017 


00057400 




0018 


00057500 




0018 


00057600 




0019 


00057700 




0021 


00057600 




0021 


00057900 




0023 


00058000 




0026 


00038100 




0027 


00058200 




0029 


00058300 




0029 



X***************************************************************** 
stream PROCEDURE TiMEOFOAYC W*HMSTX ); VALUE HMSTX; 

X***************************************************************** 
BEGIN 

DI»«W; DSlaLlT" "; SIULOC HMSTXI 
0S»«f2 CHR; OSIwLIT "J"; DSt»2 CHRi 

sit»si-i'3; 

IF SCw^A" THEN DSl"* lH" AM," ELSE DS»»4 LIT" PM,"; 
DI»«W* D5Ki2FILLi 

END timeofday; 



00658400 
00058500 
00058600 
00058700 
00058800 
00058900 
00059000 
00059100 
00059200 
00059300 



0029 
0029 
0029 
0029 
0030 
0031 
0032 
0032 
0034 
0035 



X***************************************************************** 
REAL procedure tIMECONV( T#8); VALUE T*Bi REAL t; BOOLEAN 8; 
X***************************************************************** 

BEGIN 
REAL AP; 



INTEGER HRS» HiNi SEC« TSECI 
REAL STREAM PROCEDURE STCH* M# S* T'X ); 



START 



00059400 
00059500 
00059600 
00039700 
00099800 
OF SEGMENT 
00059900 
00060000 



T 0035 

T 0035 

T 0035 

T 0035 

T 0035 
********** 

T 0000 

T 0000 
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BEGIN 



END 



BIl»UQC STJ SIIsH; 0&I»2 OECi SII»M; DSl<*2 OECJ 

sii.s; DSi«2 dec; sii»t; osj»i dec; 
sn»x; sii»si+7; dsi»chr; 

STREAM 5T; 



00060100 




0000 


00060200 




0000 


00060300 




0001 


00060400 




0002 


00060500 




0003 



END 



HRS tM T DIV 216000; 

MII^ M(T OIV 3600) MOD 60; 

SEC l»CT OIV 60} MOD 60; 

TSEC»"CT DIV 6) MOD lO; 

IF HRS GTR 11 THEN API" "P" ELSE APIs "A"; 

IF HRS GTR 12 THEN HRSI«HrS-12; 

IF B THEN IF HRS UbS 01 THEN HRSi* 12; 

TIMECONVl«ST(HRS#MlN#SEC#TSEC»AP); 

TIMECONV; 



00060600 
00060700 
00060800 
00060900 
00061000 
00061100 
00061200 
00061300 
00061400 



11 IS 28 LONG* 



0004 
0005 
0007 
0008 
0010 
0015 
0018 
0021 
0023 
NEXT SEG 



X**********************************************************************;( 

REAL PROCEDURE MAKEFN(FT*LL ); VALUE LL»FT; REAL LL»FT; 
X**************************************^******************************** 

BEGIN 



REAL STREAM PROCEDURE FN(FT#Ltj; VALUE Lt'f'T; 



BEGIN 



R C U « 1^ 

sii«Loe ft; sii»si+5; dii«loc fn; dsi«3chr; 

SilnLOC Li; D5I-3DEC; DSI92LIT'' "; 



iII«»LOC LI. 
End STREAM PROCEDURE FN; 



00061800 T 0035 

00061900 T 0035 

00062000 T 0035 

00062100 T 0035 

00062200 T 0035 
START OF SEGMENT ******** 

00062300 T 0000 

00062400 T 0000 

00062500 T 0001 

00062600 T 0002 
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MAKIFN|*FN(FT*(LL+SY5TEM)); 
END PROCEDURE MAKEFN* 



12 



00062700 T 

00062800 T 

IS S L0N6« 



0003 

0005 
NEXT SEG 



****************************************************x 



PROCEDURE eHKPT CA); ARRAY ACQ]; 
;(**********f»****************************************<l 

BEGIN LABEL DUMMY; 

RLCW l» REALCLCW); % SAVE TOGGLES IN STACK 

MOVEc40,WOROS#AtTBASE3,WORKClOxTPREC]); 

DISK0UTCTi0KADR*l0xTPREC+40); 

END chkpt; 



00062900 T 0035 
00063000 T 0035 





00063100 
00063200 


T 
T 


0035 
0035 


START 


OF SEGMENT 
00063210 
00063300 
00063400 
09063500 


********** 

T 0000 
T 000 1 
T 0005 
T 0011 
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13 IS 12 LONG* NEXT SEG 



* « 



X****************«**********i|,«r***ilr******************** 



PROCEDURE CANCELCKPT(A); 
BEGIN LABEL DUMMY; 



ARRAY AC03; 



RtCW IS REALClClN)i % SAVE TOGGLES IN STACK 
TABLEINFO U O; 
ACTBaSE+iO] I" TEN8; 
MOVE{ 30* WORDS* ACTBASE+103* WORK C03)i 
DISKwRITE(WRKTBLADR); 

END cancelckpt; 



START 



00069600 
00063700 
00963800 
OF SEGMENT 
09063610 
00063900 
09064000 
00064100 
00064200 
00064300 



T 0035 
T 0035 
T 0035 
********** 



0000 
0001 
0002 
0004 
0007 
0010 
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14 IS 12 LONG, NEXT SEG 



X********************************************************************«^« 

REAL PROCEDURE DATECONV(DATE); VALUE DATE; REAL DATE* 
X*********************************************************************** 

BEGIN 

REAL M,D*l; ARRAY LtOllSi; 



START 



INTEGER STREAM PROCEDURE 

VALUE DECV; 

BEGIN 5l«'L0C OECV; Ol«-LOC 
END OF OCTAL CONVERT; 



OCTCONV (DECV); 

OCTCQNV; 0S*8 OCT; 



00064400 




0035 


00064500 




0035 


00064600 




0035 


00064700 




0035 


00064800 




0035 


OF SEGMENT 


******* 


00064900 




0001 


0006S000 




0001 


00065100 




0001 


00065200 




0001 


00065300 




0003 
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FILL Lt*3 WITH 0,3l*60,9i* 121* 152* l82*2l3*244*274*305*33S*366; 

Ml«0ECCONi!CDATE); D l«OCTCONV( M, C 30 » 1 a3 J ' Y IsQCTCONVCM, C I 8 » 12 3 ); 
IF D 6TR 60 THEN IF Y, [46123 NEO THEN 0»'0+i; 
Y««M,Cl8ll23i MIsO; 00 MI»M+1 UNTIL LEO LCM3 OR M»12; 
DI»DeCC0NV(D-LI:M'13)# M|»deCCONV(M); 

DATEcONV«a"0/00/00''&Mtll37t 1 U&DC 18* 361 12 3 4YC 36 J 361 12 3 ; 
END PROCEDURE DATECONV; 



00065400 

00065500 

START OF SEGMENT 



T 0004 

T 0004 

********** 



16 IS 13 LONG* 



09065600 
00063700 
00065800 

00965900 
00066000 
00966100 



15 IS 39 LONG* 



NEXT SEG 
0006 
0013 
0017 

0023 
0028 
0032 
NEXT SEG 



16 
15 



X*********************************************************************** 

PROCEDURE IIUESAWAY CQBJTQ0*USERC00E); vALUE OBJTOO*UbERCO0E; !I0527- 
BOOLEAN OBjTOO; real USERCODE; X0527- 

X*********************************************************************** 
BEaiN X0597O 



BEGIN 

REAL T1*T2; 

Tll«Lt & 13 t33l4ll7 3i 

REMOVeFILE (T1*T2»*MAKEFN ("1S''#LL)*USeRC0DE3^ 

IF OBJTOO THEN REMQVEFILE CT1*T2, t6l 363*U5ERC00E)^ 

REMOVEFILE (T1*T2 & "P" E 12J42I63*USERCQDE); 

REMOVEFILE (Tl*T2 & "T" C 12 I 421 63 * USERCODE ); 



X0527- 
X0527- 

X0527-* 

»0527- 

*0527- 

»0527- 

X0527- 



START 



00066150 


C 


0035 


00066200 


C 


0035 


00066225 


C 


0035 


00066250 


C 


0035 


00066300 


C 


0035 


09066350 


C 


003S 


OF SEGMENT 


******* 


00066400 


c 


0000 


00066450 


c 


0001 


00066500 


c 


0005 


00066550 


c 


0006 


00066600 


c 


0012 
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REM8VEFILE {Tl#T2 & "Q" C 12 U2 16] ,USE.RCOOE); 

T2«C36U2]l«i; 

REMOVEFILE (Tl*T2 i ♦♦P" C 12 J 42 «6],USERC0DE ); 

END OF FILESAWAY; 



X0527- 


00066050 C 


0015 


X0527- 


00066700 C 


0018 


*0527- 


00066750 C 


0020 


X0527- 


00066800 C 


0023 




17 IS 26 lONQf 


NEXT 



**************** ***********************^>*******j^***^HH^*j^^^^^<,jm^^^ 




BEGIN 
tABEl SPREO' exit; 
01 le« WU 

5 LIT "FILEI"; 
LOC n UP5; 
}■ 5; 

CI + s; 

sprid; 
7 chr; 

exit; 



OS Id 
SI In 

TALLY 
CI is 

GO TO 
03 >« 
TALLY 
GO To 
SPREDI 

6(IF SC a. ALPHA THEN ELSE JUMP OUT; 

OS Is chr; upt); 

EXITI 

OS 18 2 LIT « -"; TALLY l« TALLY ♦ 

FNONLY ta TALLY; 

S Is Di; 

SI Ip LOC Si 

01 U H2i 

OS Is wos; 
END OF fnonly; 



X0401' 
X0401' 



2; 



00066900 
06067000 
00067100 
00068700 
00068800 
00068900 
00069000 
00069100 
00069200 
00069300 
00069400 
00069500 
00069600 
00069700 
00069800 
00069900 
00070000 

00070100 
00Q70200 

00070300 
00070400 
00070500 
00070600 
00070700 
00070800 
00070900 
00071000 
0007U00 



T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
P 
T 
T 
T 

T 

T 
T 
T 
T 
T 
T 
T 
T 



0035 

0035 
0035 
0035 
0035 
0035 

0035 
0036 
0036 
0036 
0037 
0037 
0038 
0038 
0038 
0039 
0039 
0039 
0039 

0041 
0043 
0043 
0043 

ooa4 

0044 
0044 
0044 
0045 



X**************************************«*******«**^^***<( 

procedure GENFILiNE (FNt FT); VALUE FN* FT; REAL FN, FT; 
******** ♦****♦** * * * * * **************************************| 



BEGIN 
REAL X, 



0; 



procedure 
exit; 



REAL STREAM 

sea IN 

LABEL SPRED' 

LOCAL x; 
01 i«w; 

0SI«6 LIT " typei"; 

SI i« LOC t; 

UPs; 

CI I- CI ♦ s; 



typeonly <w#t»s); value w,t#s; 



tally !■ 10; 



00073500 




0046 


00073600 




0046 


00073700 




0046 


00073800 




0046 


00073900 




0046 


start of segment 


***#*** 


00074000 




0000 


00074100 




0000 


00074200 




0000 


00074300 




0000 


00074400 




0000 


OOO745OQ 




OOOQ 


00074600 




0000 


00074700 




0001 


00074800 




OOOl 


00074900 




0002 
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• t 



> « 



GO To 
DS Is 
TALLY 
GO To 
SPREDI 

7CIF SC « 
qS is 



spREo; 
7 chr; 
»» 17; 

EXITJ 



ALPHA THEN 

chr; upt); 

OS »» LIT 
EXIT« 

DS t* 4 LIT « •• "; 

TYPCONLY Is tally; 
END OF TYPEONLY' 



ELSE JUMP out; 



00075000 
0§075100 
00075200 
00075300 
00075400 
00075500 
00075600 
00075700 
00075800 
00075900 
00076000 
00076100 



T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0002 

0002 
0003 
0003 

0003 
0003 
0005 
0007 
0007 
0007 
0006 
0009 



X I" FNONLY {LCO]« 0* FN# 0); 
X !• X ♦ TYPEONLY (D* FT# 0)} 
TWXOuT (LL* LCOJ* Xf NQCRLF); 

END Of genfiline; 



00076200 
00076300 
00076400 
00076500 

00676600 



T 
T 
T 

T 

T 



ooto 

0010 
0012 
0015 
0017 



18 IS 21 LONG, NEXT SEQ 



PROCEDURE ERROR(S#LCW,A)J VALUE S; REAL S; BOOLEAN LCW; ARRAY A 

forward; 

REAL PROCEDURE OOGSLOOSE; 

X******************************«*******A**********************4** 

BEGIN 

REAL ll#t; 

LABEL collect#exit; 

FOR LLJsMAXLlNES STEP "1 UNTIL 00 

IF TI*OOGHOUSECLL3 NEO THEN 

IF CTRANDBA5ECRQWINUSE3 NEO T THEN 

IF NO OQGLICENSE THEN GO TO COLLECT; 

DOGSARQUNO l« DOGCATCHERS GTR Oi 

WECANuSEOAtA Id NO OOGSARQUNOI 

IF WECANUSEDATA then X O.K, TO RETURN DISK, 
BEGIN % rUUF TANK/DISK HCAOCRt 

DISKWAIT(1*WORKC*300,TANKFILE); 

CLEARCW0RKC103*15)^ 

WQRK[R0W|NUSE*lO]l«CTRAN08ASEtROWlNUSe3; 

WORKt63 l» rOWINUSE & (R0WC0UNTI»1) C18I33I153^ 

DlSKWAlT(0*W0RKt*]#30*TANKFILE); 

FOR TUO step I UNTIL 15 DO 
BEGIN X OONT GIVE AWAY THE CURRENT ROW. 

IF T NEQ ROWINUSE ANO CTRANDBASE CT 3 NEO THEN 
BEGIN X GIVE BACK UNUSED DISK* 

F0RGETUSERDISK(CTRAN0BASECT3#TANKS12E)/ 

CTRAN0BASECT3 l« 0^ 

END qiveback; 

END FOR loop; 



***x 
C03; 



START 



00078500 
00678600 
00678800 
00076900 
00079000 
00079100 
00079200 
00079300 
OF SEGMENT 

00079400 
00079600 

00079700 
00079800 
00079900 
00080000 
00080100 
00080200 
00080900 
00080400 
00660500 
00660600 
00080700 

00060600 
00060900 
00661000 
00081100 
00661200 
00061300 
00061400 
00661500 
00081600 



0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
********* 

0000 
0000 
0001 
0002 

0004 

oooe 

0009 
0011 
0012 
0012 
0014 
0016 
0016 

0020 
0022 
0023 
0023 
0025 
0025 
0026 
0028 
0026 
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END FIXUP TANK HEADER; 



collecti 



EXIT'ENO 



GO exit; 

DOGCATCHERS t« DOGCATCHERS*! J 
OQGLICENSE >« TRuEi 
OOGSLUOSE »« Lt; 
DOGSUUQSE> 



00081700 

oo»eiaoo 

00081900 
00082000 
00082100 
00082200 
OG9823O0 



0030 

0030 
0030 
0031 
0032 
0034 
0039 



19 IS 19 lOHQf NEXT SEG 



REAL PROCEDURE FlNDAl,ETTER(W0R0»TA8te*TAeuESUE); 
VALUE WoRD^TABlESIZE; real W0R0#TABUE#TAaLE5UE; 

BEGIN Label dummy; 

START 
REAL STREAM PROCEDURE FNDALETTERtW0RD#TAaLE*TABLeSI2E j; 

VALUE iiioro*tablesize; 



lUUt «0KU*TAOLtai^tj 

ROUTINE COMPARES "WQRD" WITH ENTRIES IN ARRAY "TABLE" 
1ST CHR.Or EACH "TABLE" ENTRYsNO.OF CHRS.lN WORD <UlU»l IF 
-TABLE" SHOULD BE "TA8UECU" TO USE RETURNED VALUE AS INDEX 

nrfilM I QrAI .«\/.T*SGNl I ART! F QllNin . P V T T t t 



TO 1ST CHRS, 



BEGIN LOCAL SVfT#SGN; LABEL FQUN0*EXIT;; 

suitable; sv«»5i; tallyiii; 

TABLESIZECDII«fLOC S6NJ DSIuZON; % SAvE ZONE BITS 

si««sv; sii»si+i; dii*loc word; dii»di+i; * point 

IF Sc 9 DC THEN JUMP OUT TO FOUND; 

TALl.Y»«TALlY + i; 5II«SV; SH»SU8; SVliSI); 

TALLY»»0; FnDALETTER««TALLY; GO TO exit; X IF NOT FUUND 

FOUND! 

T|*TAl.LYj SIt»LOC T; DIMLOC FNDALETTEr; DSI'WOS; 

sii-loc sgn; oii»loc fndaletter; dsi^zon; % transfer sign 

EXITJ 

END STREAM PROCEDURE FNDALETTER; 



COMPILER) 
TO "TABLE" 



00082400 T 0046 

00082500 T 0046 

00082S10 T 0046 

00082520 T 0046 

00082600 T 0046 
OF SEGMENT *******i 

00982610 T 0000 

00062700 T 0000 

00082800 T 0000 

00082900 T 0000 

00063000 T 0000 

00083100 T 0000 

00083200 T 0000 

00083300 T 0000 

00083400 T 0002 

00083500 T 0003 

00083600 T 0004 

00083700 T 0005 

00083800 T 0006 

00083900 T 0006 

01084000 T 0008 

00084100 T 0008 

00064200 T 0008 
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F I NDALEtTERi«FNDALETTERC WORD* TABLE* TABLESIZE); 
END PROCEDURE FINDALETTER; 



20 



00084210 T 

00084220 T 

IS 16 LONG* 



0010 
0013 • 
NEXT SEG 



!l;**t*4*******************************«****4r**ir**** ********************** 

REAL PROCEDURE findawordcworo*table*tablesize); 

X*********************************************************************** 
value WoROiTABLESIZL; real WQROfTABLEiTABLESIZE; 
BEGIN LABEL DUMMY; 

REAL STREAM fRflCEDUHE FnDAWQRDCWORD* TABlE*TABLESIZE ); 

VALUE word*tablesize; 

% HOUTINE COMPARES "WORD" WITH ENTRIES IN ARRAY "TABLE" 

X 1ST SHRtOf EACH "TABLE" ENTRYiNQ.OF CHRSfIN WORD ain3«l IF COMPILER) 

X 1ST CHRt OF "WORD" • NO, OF CHRSt INPUT BY USER ( MAX, m 7 ) 



START 



00084300 




0046 


00084400 




0046 


00084410 




0046 


00084420 




0046 


00984500 




0046 


SEGMENT 




00084510 




oooo 


00084600 




0000 


00084700 




0000 


00084800 




0000 


00084900 




0000 
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• * 



« • 



X "TABLE*' SHOULD BE "TABLECl 
BEGIN LOCAL SV.WROSU#TBL 

sii'LOc word; dii'LOC wrd 
suitable; svi«sj; tallyi 

TABLESIZE(0II"LOC SGN; OS 

si»»sv; on-'LOc tblsjz; o 
siulOc wrdsiz; $ji«si*7; 
if sc geo dc then x wrdsi 

Begin 

siiwsv; si»«si + i; Dn« 

If WRDSIZ sc • DC THEN 

End; 

TALLYl«TALLY+i; SII«SV; S 
TALLYI»Oi FNDAWOROt«TALLY 
FOUND! 

wrdsizj«t*lly; SJIsLOC wr 
SII>>lOC SQNl DIl!*LOC FNOA 
EXITI 

END STREAM PROCEDURE FINOAWORO; 



}» TU use Returned value a& index tq ••table*' 

sizjsgnj label found«exit;; 

sizi Dii'DUz; dsmchr; % word size 

UZONj % SAVE ZONE BITS 

l»*0J*7J DSJ'NUM; X LENGTH OF TABLE ENTRY 

dI»"L0c tblsiz; oh»di*7; 
z at least as large as tblsiz 

LOC word; dii*di*i; % point to actual chrs, 

JUMK OUT TQ found; 

li^sue; sviwsn; 

; go to exit; % if not found 

DSIZ; Olt»LOC FNDAWORO; DSIsWDS; 
word; OSlaZONJ X TRANSFER SIGN 



00085000 




0000 


oooes^oo 




0000 


00085200 




0000 


00085300 




OOOl 


00065400 




0001 


00065500 




0003 


00065600 




0004 


00085700 




0005 


00085800 




0005 


00085900 




0005 


00086000 




0007 


00086100 




0008 


00086200 




0008 


00086300 




0009 


00086400 




0010 


00086500 




OOJO 


00086600 




0012 


00086700 




0012 


00086800 




0012 



findawordi«fndaword(woro#table#tablesize); 
END procedure finoaword; 
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00086810 T 

00086820 T 

IS 20 L0NG« 



0014 
0017 
NEXT SEG 



X*************«****************«******«***A****************************i 
'RncrriiiDr rkiTrorcDn ■ . Anne, a a i\/ai nr i i .ahdci utai i L«ADRs; ARRAY ACQ]; 



PROCEDURE ENTERESPCLL#ADRSfA)IVALUe LL*AORs; REAL LL. 

x*********«**************************************«** 

* this PROCEDURE IS USED TO KEEP TRACK QF ESP DISK SEGMENTS ALLOCATED 
[".P?-*-.*!^^. ^.0^*1^9')' USEAGEf EACH LOGICAL LINE HAS 



% 
% 
% 
% 
% 
% 

% 
% 
X 
X 
X 
X 
X 

X 
X 
X 
X 

X 

X 

X 
X 



A VARIABLE CALLED 
COMPRISED 0F» 

ESPWORD.tim ( ON WHEN ESPTABLE IS FULL ) 
ESPWORDtt3«83 ( NUMBER OF ENTRIES IN ESPTABLE ) 
ESPW0R0.E20»283 (1ST eSP ADDRESS FOR LBL, E^N. ) 
ENTRY IN "ESPTABLE" IS COMPRISED OFI 
ESPTAaLEtn»tltU (MARKS THIS WORD 



"ESPWqRD" WHICH IS 
E8PFLAG » 
ESPCOUNT" 

firstesp* 

EACH 



t^r I wawwk * j» t jn A J injini\« inia nunu IN USE ) 
E8PTABLEn3tt2l83 (LOGICAL LINE USING THIS WORD ) 
ESPTABLECn«[20t283 (ADDRESS OF ESP SEGMENT IN USE 

•♦ EltPUBLE " IS DE.Ct Afiffl AQ t E SP T ABL E 81 Z E 3 

WHEN A POSITIVE VALUE FQR LL IS PASSED TO THIS PROCEDURE* 
ENTRY IS PLACED IN ESPTABLE FOR THAT LINE AND ESPcOUNT IS 

espflag IS Turned on in the event that the esptable is completely 

FILLED. When a negative value for LL IS PASSED TO THIS PROCEDURE* 
AND A non-negative VALUE FOR AORS IS PASSED* THE ENTRIES 
SPECIFIED LInE ARE REMOVED FRQM THE TABLE* AND 
TO ZERO. WHEN BOTH LL AND ADRS ARE NEGATIVE* 
SPECIFIED LiNE ARE REMOVED FROM THE TABLE 



) 



AN 
INCREMENTED 



AOOSESSEO BY EACH TABLE 
IS ALSO 8C-SET TO ZERO. 

BEGIN 

BOOLEAN 0£LINK*F0RGET; 



FQR THE 
ESPWOHD 15 RESET 
THE ENTRIES FOR THE 
AND THE ESP SEGEMENTS 



ENTRY ARE RETURNED TO THE SYSTEM. E5PW0R0 



REAL l*WORO; LABEL EXIT; 



00067602 

00087603 
00087604 
00067609 
0008/606 
00087607 
00067606 
00087609 
00087610 
00087611 
00067612 
00067613 
00087614 
00067615 
00087616 
00087617 
00087619 
00087619 
00087620 
00067621 
00067622 
00067623 
00067624 
00067625 
00087626 
00067626 
START OF SEGMENT 



T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0046 

0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 



*******#** 
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OEUInK >» BOOUEANdL.Cim); UUioABSclDJ 
FQRQCT la BOOlEANCAORS.CUn)' AORS liiABSC AORS }; 
FOR IJ»0 STEP 1 UNTIL ESPTABUESIZE 00 
IF DELINK THEN 
BeQIN 

IF BOOLEANCCWOROI»ESPTABLEtn)fmn) THEN X VALID ENTRY 
If W0R&,t2»8]«LL THEN X ENTRY FOR THJS LINE 
BEGIN 

ESPCOUNT IS E8PC0UNT - 1} 
IF rORQET THEN 

IF {WQRDI»fWQR0.C20l28]) NEQ THEN FQRGETESPOl SKC WQRD ); 
ESpTABLEtlJUO; 

IF ESPCOUNT » THEN X NO MORE ENTRIES FOR THIS LINE 
BEGIN 

espworo i* o; go to exiti 

end; 

end; X IF ENTRY FOR THIS LINE 
End X IF DELINK 
ELSE 

BEGIN X ENTERING NEW VALUE IN TABLE 

IF NOT BOOLEAN(ESPTABLECn.CllU) THEN X AVAILABLE WORD 

BEGIN 

ESPTABLEtn l» "AORS & LLt2U0te]i 

ESPCOUNT Is ESPCOUNT ♦ U 

60 TO exit; 

end; X IF AVAILABLE WORD 

End; x if entering new value 
espflag i« i; X no room in tables 

EXITI 

END PROCEDURE ENTERESP; 



22 IS 



00087630 

00087632 
09087634 

00067636 
00087638 
00087640 
00087642 

00087644 
00087646 

00087648 
00087650 
00087652 
00087654 
00087656 
00087658 
00087660 
00087662 
00087664 
00087666 
00087668 
00087670 
00087672 
09087674 
00087676 
00087678 
00087680 
00087682 
00087684 
00087686 
00087688 
40 LONG* 



0000 
0002 
0004 
0006 
0006 
0006 
0008 

0010 
0010 
0014 
0014 
0018 
0019 
0020 
0021 
0023 
0023 
0023 

0023 
0023 
0023 
0024 
0025 
0027 
0031 
0032 
0032 
0034 

0036 
0037 
NEXT SEQ 



X******«****************«***************************************4******ft 

REAL PROCEDURE SCANCPTR*STACKW0R0*C0MPVALUE*W0RKEN0A0RS*PNTR); 

X***'*********«4**t*********************«*************«****************** 

VALUE gompvalue*workendadrs; 

REAL PTR#STA0KWORD*COMPVALUE#W0RKtNOADRS»PNTR; 
BEQIN LABEL DUMMYJ 

REAL STREAM PROCEDURE SCN(PTR* STACKWORO,COMPVALUE#WORkENDADRS*PNTR); 
VALUE CoHP¥ALUE*W0RKEN0AORS; 

begin local sv#dv'TI label blnks^exit; 
X puts a token into stackwqrd 

X returns Iji2f3 QR 5 FOR ALPHANUMERIC#NUMERIC#5PECIAL*EN0 OF RECORD 
DllwwORKENOADRS; OSl»LIT LEFTARRQW; X MARK END OF RECORD 

sii«ptr; sit«5i*5; simsc; x starting address for scan 

VOID 



X 

blnksi 

IF SC 



IF 



♦♦ THEN 
BEGIN 

SiinSi+i; 
End; 

SCp"*" THEN 

Begin 



X ignore all blanks 
go to blnks; 
x ignore all commas 



00087700 
00067800 
00087810 
00087620 
00087830 
00087900 
START OF SEGMENT 
00087910 
00098000 
00088100 
00068200 
0OQ88300 
00088400 
00068500 
00068600 
00088700 
00088800 
00066900 
00069000 
0096^100 
00069800 
00089300 



0046 
0046 
0046 
0046 
0046 
0046 
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T 0000 

T 0000 

T 0000 

T 0000 

T 0000 

T 0000 

T 0000 

T OOOl 

T OOOl 

T OOOl 

T 0002 

T 0002 

T 0003 

T 0003 

T 0004 



• 4 



X UETTER OR DIGIT 
THENi 



SlInSI + U GO TO B|,NKS; 
ENDJ 

svi«si; sii-LOc sv; DH»»PNTR; DSi»i«ios; siissv; dii»»tackworo; 

IF Sc » lEFTARROW then X CHEC« FOR END OF RECORD 

iECIN 

SyOSlI SIlsLOC SVJ SllaSUSJ 
OvtaiOi; DIloUOC WORKENDADRS; Dl«'Dl*5i 
If 3 Se • OC THEN % END OF RECORD 

BEGIN 

DIliDV; DSI»71IT''8000000''/ OS«*lIT LEFTARROW; 

TAUIY|«5; SCNIsTAUIY; SIi«SV; go TO EXITi 

end; X 
Simsvi Dii»Dvi 
End; x if leftarrow 
if sc«alpha then if sc ueq "9" then 

Begin 

If 5C (»EQ "0" THEN IF SC lEQ "9" 
If TOGftlE THEN X DIGIT STRING 

BEGIN 

TAULYl«2i SCNIiTALUY; X CODE FOR DIGIT STRING 

TAULYl»i; SIMSI + IJ 

7(IF SC GE« "O" THEN IF SC LEO "9" THEN; 

IF TOGGLE THEN ELSE JUMP OUT; 

5H»Sl*i; TALLYJ«TALLY*1); 

ti»tally; 5Ii»sI"T; dsib t oct; 

end; X IF DIGIT STRING 
TALLYlKi; SCNIbTALLY; X CODE FOR ALPHANUMERIC STHJNG 
Dvl»Di; DSt«8LIT"0 ••; Qll90l^7i TALLY»»o; 

7cif sc » alpha then else jump out; 

if sc gtr compvalue then jump out; 

dsi'Chr; tallyi«itally+u; 

Ti«»tally; sviwsi; sh^loc t; siiosu?; on»Dv; osi»chr; x length 

Sj inSy; 

63<IF SC»ALPHA THEN ELSE JUMP OUT; 

IF SC QTR CQMPVALUE THEN JUMP OUT; Sll»SI+l); 

GO TO exit; 

end; X IF ALPHA 

tally«»3; scni»tally; x code for special character 

0SI«7LIT"8OO000O"; d5»»CHR; X RIGHT JUSTIFIED 

exiti 

sviiisi; siMLOC sv; dii»ptr; usiwwos; x next address 

END stream PROCEDURE SCN; 



GO TQ exit; 



00089000 
00089500 
00089510 
00089600 
00089700 
00089800 
00089900 
00090000 
00090100 
00090200 
00090300 
00090400 
00»90300 
OOQ9Q600 
00090700 
0Q890800 
00890900 
00091000 
0009U00 
00091200 
00091300 
00891400 
00091500 
00091600 
00091700 
00091800 
00091900 
00092000 
00092100 
00892200 
00092300 
00Q92400 
00093500 
00092600 
00092700 
00092800 
00092900 
00193000 
00093100 

00093200 
00093300 
00093400 



0004 
0005 
0005 
0006 
0007 
0007 
0008 
0009 
0009 
0009 
0012 
0013 
0013 
0013 
0013 
0015 
0015 
0017 
0017 
0017 
0018 
0018 
0020 
0021 
0023 

0024 
0024 
0025 
0027 
0028 
0030 
0031 
0032 
0032 
0034 
0037 
0037 
0038 
0038 

0040 
0040 
0041 



scan«»scn(ptr#stackword,compvalue*workendadrs,pntr); 
END procedure scan; 
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00093410 T 

00093420 T 

IS 49 L0NG» 



0042 
0046 

NEXT 5EG 



X*********************************************************************** 
BOOLEAN procedure YQUFIN0AVER8(STACK#VERBL0C#NUM0FV|RBS); 

X***#*l|r*****************************************************«t*********** 

VALUE numofverbs; real stack»verbloc*numofverbs; 



00093500 T 0046 

00093600 T 0046 

00093610 T 0046 

00093620 T 0046 



BEGIN 
LABEL 



It 



BOOLEAN 

VALUE 
eEGiN 
LABEL 
LOCAL 
DI Is 



STREAM PROCEDURE YOUFNOAVERBCSTaCK* VERBLQC*NUMQFVERBS); 

NUMOFVtRBS; 



3TART 



SI 
01 
GO 
FOUNOi 



FOUND* away; 

Tf SAVOi 

VERBLOCi SI i« stack; 

NUMOFVERBSCIF SC GEO DC THEN 

Begin savo j«» di; siiwsi-u 
OS <« ghr; 01 >« savo; 
If T sc * 0C then jump out 
01 im savo; 
End; 

«« stack; 
In 01 + 15); 
away; 
SI i« savo; si 



01 t» Loc t; 01 !• DI ♦ /; 

to found; 



i» si 



OS IB WOSi TALLY Is 

youfnoaveRbihtally; 
AWAYi End of youfinoaverb; 



♦ 7; 01 i» stack; 

X REPLACE VERB WITH 



definition 



00093630 
00093640 
OF SEGMENT 
00093700 
00093800 
00093900 
00094000 

00094100 
00094200 
00094300 
00094400 
00094300 
00094600 
00094700 
00094800 
00094900 
00095000 
00095100 
00095200 
00095300 
00095400 
00095500 



T 0046 

T 0046 

********** 
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T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0000 
0000 
0000 
0000 

0000 
0000 
0000 
0002 
0003 
0004 
0005 
0005 
0005 
0005 
0006 
0006 
0007 
0008 
0008 



ygufindaver8i«syqufnoaverb(stack*verbloc,numofverbs); 
END procedure youfindaverb; 
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00095510 T 

00095520 T 

IS 16 LONG* 



0010 
0012 
NEXT SEG 



X*********************************************************************** 



REAL STREAM PROCEDURE A0DRESS<W); 
BEGIN SU«W; ADDRESSMSi; ENDi 



00095600 T 0046 
00095700 T 0046 
00095800 T 0046 



X*********************************************************************** 

STREAM PROCEDURE STICKCP* A# EN0ADR5 J; VALUE P#EN0A0R$; 

X*********************************************************************** 

begin local sv«ov; label cxit^ 

x transfers ss message from work array 

dii"aj dsiwslit" "; si»«»a; osuu wds^ x blank 15 words 

DII^ENOAORS; X insert RECORD MARKER OSl«»LIT LEFTARROW; 

sitwp; oiii»a; 

2(60(IF SC*LEFTARROW THEN 
BEGIN 

svi*si; $ii«Loc sv; simsi'^s; 

0v»»Di; OII'UOC ENDADRS; Dll»0I*5; 

IF aSCOC THEN JUMP OUT 2 TO EXIT; X END OF RECOKQ 

sjitsv; Dii»ov; 
End; 

0SI»CHR)); 
EXITI 



00095900 
00996000 
06096100 
00096200 
00096300 
00096400 
00096500 
00096600 
00096700 
06096800 
00096900 
00«97000 
00097100 
00097200 
00097300 
00097400 
00097500 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0047 
0047 
0047 
0047 
0048 
0048 
0050 
0050 
0050 
0051 
0051 
0053 
0053 

0055 
0055 
0055 
0056 



t 1 



• % 



il'i 



END STREAM PROCEDURE STICK; 



00097600 T 0056 



BOOLEAN PROCEDURE F JXERROR(SAORS»EAOR$}; 
VALUE SADRS«EAoRSj REAL SAORS«EAORSj 

BEGIN Label dummy; 

BOOLEAN STREAM PROCEDURE FXERR0RCSADR3»EADR5); VAlUE SADRS'EADRS; 

% sadrs is starting address of users input record 
X eadrs is address of end of users input 
% routine checks syntax of ♦♦FIX" requests 
begin local sv*o; label exit; 

SII'SADRS; TALLY|»li 

20CIF SC USS "O^* THEN 5II»Sl*l ELSE JUMP OUT); X SCAN TO DIGIT 
T06G1.E THEN GO EXIT; X NO DIGITS 



*** 



THEN JUMP 
X SCAN TO 



out; 

CHRt 



IF 

8CIF SC LSS "O^* THEN JUMP OUTilF SC GTR "9" 
aOCiF SC«^« •♦ THEN SIl^SI + l ELSE JUMP OUTj; 
IF TOGGLE THEN GO TO EXIT; X EMPTY FIELD 

Dii'LOc d; Dn»oi*7; osi«chr; x save delimiter 
IF Sc»D then go to exit; X NO string 
IF sc » leftarrqw then 

Begin 

svissi; siiwuoc sv; simsi^s; oiiaLOc eadrs; oijsous; 

If ascDc then x left arrow replacement 
BEGIN tallyi«o; go exit; end else sn*sv; 

EnOJ X IF leftarrow 
63CIF SC»LEFTARR0W THEn X CHECK FOR END OF RECORD 

BEGIN 

svipsi; simuoc sv; sji»si+5; duwUOc eadrs; di»»oi*5; 

If 3Sc«oc then jump out to exit else siixsv; 

End; 

IF Sc NEQ D then SII»5I+1 ELSE JUMP OUT); 

IF Toggle then go exit; x missing znd delimiter 
tallyibo; 

EXIT! 

FXERRORl^TALLYi 

END STREAM PROCEDURE FXERROR; 



sn»si*U' 



00097610 
000976U 
00097613 
06097614 
START OF SEGMENT 
00Q97615 
00»97616 
00097618 
00097620 
00097622 
00697624 
00097626 
00097628 
00f97630 
00097632 
00997634 
00097636 
0Q097638 
00097640 
00097642 
00097644 
00097646 
00097648 
00097650 
00097652 
00997654 
00997656 
09097656 
00097660 
00097662 
00097664 
00097666 
00097669 
00097670 
00097672 



0057 
0057 
0057 
0057 

********* 
0000 

0000 

0000 
0000 
0000 
0000 
0000 
0003 
0003 
0007 
0009 
0009 
0010 

oou 

0012 
0012 
0013 
0014 
0015 
0015 
0016 
0016 

ooia 

0019 
0019 
0022 
0022 
0022 
0022 
0023 
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FlXERRORl'»FXERR0R(5A0RS*EADRS); 
END PROCEDURE FIXERROR; 



25 



00097674 T 

00997676 T 

IS 31 LONGf 



0024 
0027 

NEXT 5EQ 



X***«********«*********************************«************************ 
PROCEDURE SCANNERCSTRTAORS*A#LCW#ENDAORS)i VALUE STRTADRS#IN0ADRS; 

X********ilr*******************«****«************************************* 

REAL strtaors#enoaors; boolean lcw; array acoi; 

BEGIN 

X main cande scanner 



00097700 




0057 


00997800 




0057 


00097900 




0057 


00098000 




0057 


090981Q0 




0097 


00996200 




0057 



RETURNS TYPE 



OF 
C 



» COMMENT 

1 » VCRB C 

2 ■ NUMBER < 

3 > SPECIAL ( 

4 • SSMSa C 

5 «» NUlt INPUT 
WHEN iNiUT TYPE m 2 

w yCTAt 



INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 



IN AteASE3»C3l3] - 

STARTS WITH QUOTE J 

STARTS WITH A VERB ) 

STARTS WITH A NUMBER ) 

STARTS WITH A SPECIAL CHARACTER 

IS AN SS MESSAGE ) 



( NUMBER ) • 
NUMBER 



DELETION ) 



ACBASE*n 
ACBASE'^2] » 

■ MORE INFORMATION FOLLOWS NUMBER 

1 » NO INFORMATION FOLLOWS NUMBER ( 
3 « A "FIX" REQUEST 

RETURNS NUMBER OF TOKENS IN STACK IN ACBASE] • C 33 I Id 3 
RETURNS NUMBER OF "VERBS" FOUNQ IN AC BASE] . C16I 13 J 
FOR EACH VERB • 
A CVERBLOCATIQN 

A cverblocation 



],C33U53 " NUMERIC CODE ASSOCIATED WITH VERB 
3ai8ll53 m NUMBER OF PARAMETERS FOR THE VERB 
REAL I# K# P« S* MS# TYPE* VERBS* PLUSORMINUSI 



BOOLEAN ERRFLG*PLUSi 

LABEL NULL* STARTC0M*L00KFERPARAMS»T00L0NQ# SNEAK IN* QENSEQ* 
FIXCHEC8#5ETERR0R*FlNlSH*EXlTi 
DEFINE ERRV w 3"000000000000036"&3CI»46I 2]#; 
DEFINE SEQV • 3"000060000000065"&3t II 461 2]#l 
MS Is 5 II BASE ♦ i; X INITIALIZE STACK INDICES 
P l« STRTADRS; % ADDRESS OF WORKCU; 
NULLI 

IF TYPEI«SCANCP»AtS3*"Z"#ENOAORS*SCANPTRCS-SBASE3)"5 THEN * EOR 

BEGIN 

ACBASe] t>» & 5C3I45I33; » NULL RECORD 

GO TO exit; 

End; 

IF TyPE»2 THEN % iNPuT STARTS WITH NUMBER 

BEGIN X CHECK FOR DELETION (NUMBER FOLLOWED BY END OF RECORD) 

Kt«P; ACS|*S*IJ I* 

If SCAN(P,I*"Z"#ENDADR5*SCANPTRCS-SBASE3)»5 and KbP THEN I ELSE 0^ 



AtBASEl (• 2 

GO TO exit; 
end; X if record 



«. 2C3I45I3]; X OCTAL NUMBER CODE AND STACK SUE 
STARTS WITH NUMBER 



IF TYPE*1 then X ALPHANUMERIC TOKEN 

Begin 
startcomi 

plusorminusiso; 

If Y0uf'lN0AvERBCACS3*VER8TABLEC03*NUM0FVERBS) THEN X C&E VERB 

BEGIN 

MS !■ S; X SAVE STACK LOCATION OF VERB 

VERBS I" VERBS ♦ U X INCREMENT VERB COUNT 

IF ACS3.t33ll53»VSSMSG THEN X SS MESSAGE 
BEGIN 

IF VERBS NEO 1 THEN GO TO SETERROR; X MUST BE FIRST VERB 
IF SCANtP#A[S»»5 + l3*"9"*ENDAORS#SCANPTRCS''S8ASE3) GTR 2 THEN 

«o TO seterror; 

STICKCP*L*ENOADRS); X TRANSFER MESSAGE TO ARRAY "L" 
|[BASE? I« & 4C3Mdl33; X CODE FOR SSMSG 

GO TO exit; 



00096300 

OOQVBAOO 
000965Q0 
OOQ966Q0 
00096700 
00096800 
00098900 
00899000 
00099100 
00099200 
00099300 
00999400 

00099900 
00099600 
00999700 
00099800 
00699900 
OOIOOOOO 
09100100 
START OF SEGMENT 
00100200 
00100300 
00100400 

ooioosoo 

00100600 
00100700 
00100800 
00100900 
00101000 

ooioiioo 

00101200 
00101300 
00101400 
00101500 
00101600 
00101700 
09101710 
00101800 
00101900 
00102000 
00102100 
09102200 
00102300 
00102400 
00102500 
00102600 
00102700 
00102900 
00102900 
00103000 
09103100 
00103200 
00103300 
00103310 
00103400 
00103900 
00103600 



0057 

0057 
0057 
0057 
0057 
0057 
0057 
0097 
0097 
0057 
0057 
0097 

0057 
0057 
0057 
0057 
0097 
0097 
0057 
********* 

0000 
0000 
0000 
0000 
0000 
0000 
0001 
0002 
0003 

0010 
0011 

0013 
0013 
0013 
0014 
0015 
0017 
0024 
0027 
0027 
0027 
0027 
0028 
0029 
0029 
0029 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0047 
0048 
0050 
0052 
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i I 



END^ X iF SS MESSAGE 
IF BOOUEANCACSj.tem) THEN X '♦SPECIAL" VERB - STOP SCANNING 
IF VERBS NEQ 1 THEN X "SPECIAL" VERBS NOT ALLOWED AFTER "i" 

BEGIN 

ACS3t»VtRBTABLEtACSJ.t9|93]; GO TU SETERRDK* 

END ELSE GO TO FINISH; 
LOOKFERPARAMSI 

IF CSt»S+U GEQ PREVRCW THEN X DONT CLOBBER STACK 

BEGIN 
TOOlONSj ERRSW !■ "TOOMUCH"; 

HSGPTR t« 30; 

GO TO seterror; 

end; 
if typel*scancp#a[s3#"9"#enoaors*scanptrts-sbase3)»5 then 
go to finish; 
if type«3 then x parameter is special character 

BEGIN 

PLusoRMiNus I* o; 

IF ACS3 " ";" THEN X END OF LOGICAL REQUEST 
BEGIN 
SNEAKlNi IF TYPElsScAN(P#ACS3*"Z"*ENDADRS*ScANPTKtS"58ASE3J*S THEN 

GO TO finish; 

IF TYPEsil THEN X ALPHANUMERIC TOKEN FOLLOWS ";" 
BEGIN 

AtMSJ la ACMS3 & ( S-MS"U U8l 33U 53 ^ X PARAMETER COUNT 
MS l» S; X NEXT VERB LOCATION 

GO TO startcom; 

END; X IF ALPHANUMERIC STRING FOLLOWS ";" 
IF TYPE*3 THEN X SPECIAL CHARACTER FOLLOWS "i" 



BEGIN 

IF ACS]*";" 
IF AC53*""" 
IF A[53»"+" 



THEN GO TO SNEAKIN; X REDUNDANT 
THEN GO TO FINISH; X COMMENT AFTER "^" 
THEN GO To GENSEO; X RESEQ SHORTHAND 
end; % IF SPECIAL CHARACTER FOLLOWS ";" 
GO TU SETERROr; X NOTHING ELSE ALLOWED AFTER ";" 
end; X IF PARAMETER m ♦•;•• 
IF ACS3»"«" THEN PLUS0RMINUSI"2 ELSE 
IF AtS3»"*" THEN PLUS0RMINUS»»3# 

GO LOOKFERPARAMS; X SAVE ALL SPECIAL CHARACTERS 
end; X IF PAKAM IS A SPECIAL CHARACTER 
IF TYPE»»l THEN X ALPHANUMERIC PARAMETER 
BEGIN 

iLUSORMINUSl»o; 
GO LOOKFERPARAMS; 
end; X IF ALPHANUMERIC PARAMETER 
X TYPE • 2 > NUMERIC PARAMETER 
IF PLUSORMINuS 6TR THEN X SIGNED NUMBER 
BEGIN 

acs3 ««• ac53 4 plus0rminusch46»23; x 
if not plus then acsi^s-j] |» a£s*13; 
end; 
PLUSORMINUS I* o; 

GO LOOKFERPARAMS; 

end; X if a CANOE VERB 
MATCH(ACS3,t6U23*"FIX ") GO TO FIXCHECK; 
GO TO SETERROR; X ALPHA STRING NOT A VERB OR A "FIX" 
EnO; X IF TOKEN IS ALPHANUMERIC 



SIGNED NUMBER 

PLUS iw false; 



00103700 

00103800 

00103900 

00103910 

00103920 

00103930 

00104000 

00104100 

00104200 

00104300 

00104400 

00104S00 

00104600 

00104700 

00104710 

00104600 

00104900 

OOIOI^OOO 

00109100 

00105200 

00105300 

00105310 

00105400 

00105500 

00105600 

00105700 

00105600 

00105900 

00106000 

00106100 

00106200 

06106300 

00106400 

00106500 

00106600 

00106700 

00106800 

001068S0 

00106900 

00106950 

00107000 

00107050 

00107100 

00107150 

00107200 

00107250 

00107300 

00107350 

00107400 

00107450 

00107500 

00107550 

00107600 

00107650 

00107700 

00107750 

00107600 



0053 

0053 

0054 

0055 

0056 

0056 

0058 

0059 

0060 

0061 

0062 

0064 

0066 

0066 

0073 

0074 

0074 

0075 

0076 

0077 

0077 

0065 

0066 

0086 

0087 

0090 

0091 

0091 

0091 

0092 

0092 

0094 

0095 

0097 

0097 

0097 

0097 

0100 

0102 

0103 

0103 

0104 

0104 

0105 

0105 

0105 

0105 

0106 

0107 

0109 

0114 

0114 

0115 

0115 

0115 

0U9 

0121 



IF TyPE»3 then % TOKEN IS A SPECIAL CHARACTER 
BEGIN 

IF ACS1»">" THEN % SEQUENCE REQUEST 
BEGIN 
GENSEQI PLU80RMINU5 l» 31 X NEXT PARAM WIUU BE INCREMENT 
MS «» Si X MARK STACK UUCATIQN OF "SEQ*' VERB 
VERBS !• VERBS + li PLUS «» TRUE; 

ACS3 IB SEflVJ % REPLACE " + •' WITH SEQUENCE VERB CODE 
GO LOOKFERPARAMS; 

ENoJ % in "♦•• 

IF ACS3»"*" THEN % A "FIX" REQUEST 

BEGIN 
F I XCHECK ' 

IF TYPE««SgAN(P*ACS3#''9''#ENOAORS#SCANPTRt5"SBASE3) NEQ 2 THEN 

GO TO SETEHRORi 

IF CSmS + U GEQ PREVRCW THEN GO TO TOOLONG; 

ACS3 t» 3J X DENOTES A "FIX" 

ACBASE] l« 2 & 2t3l45»33; % "FIX" CODE AND PAKAM, COUNT 

GO TO exit; 

end; % IF "FIX" 
IF ACS3a";" THEN GO TO NULL; X INPUT STARTS WITH "i" 
If ACS3«""" then X COMMENT 

BEGIN 

ACBASE3 IM 0} 

GO TO exit; 

end; 
seterrorj 

AtMS+l3 la At53; X PLACE ERRONEOUS TOKEN IN JST PARAM, POSITION 
ACMS3 I* ERRV; X CALL ON ERROR ROUTINE 
VgRBS l» VERBS * H 

ERRFLG «• true; 

s l» ms ♦ ?; x adjust for correct parameter count 
End; x if token is a special character 
finishi 

ALMS] «« «CM$3 & «S'MS-ntl8l33ll53; X PARAMETER COUNT 
At8AsE3 !"» (S-BASE-IJ & VERBSC 18 1 33 1 15] & 
REALcERRFLG)tl7U7in & U3»«5l33; 
EXIT* 

END PROCEDURE SCANNER; 
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0010/650 
0010/900 
00107950 
OOIOBOOO 
00108050 
00106100 
09106150 
00108200 
00108250 
00106300 
00106350 
00106400 
06108450 
09108S00 
00106510 
00106550 

0S108600 
00106650 

09106700 
00106750 
00106800 
00108650 
00106900 
0S1089S0 
00109000 
00109050 
00109100 
00109150 
00109800 
00109250 

00109300 
00109350 
00109400 
00109450 
00109500 
00109550 
00109600 
00109650 
00109700 
174 LONG 



T 0121 


T 0121 


T 0122 


T 0123 


T 0123 


T 0124 


T 0125 


T 0127 


T 0129 


T 0132 


T 0132 


T 0133 


T 0133 


T 0134 


T 0141 


T 0142 


T 0144 


T 0145 


T 0147 


T 0148 


T 0148 


T 0149 


T 0150 


T 0151 


T 0152 


T 0153 


T 0153 


T 0153 


T 0155 


T 0157 


T 0158 


T 0159 


T 0160 


T 0160 


T 0161 


T 0164 


T 0166 


T 0168 


T 0169 


$ NEXT Seq 



BOOLEAN STREAM PROCEDURE CHECK8ITCN#LST ); VALUE N; 
BEGIN SIlsLSTI SKIP SBi SKIP N Se; IF SB THEN TALLYI-U 

checkbiti'Tally; end stream procedure checkbit; 



00109750 T 0057 

00109800 T 0057 

00109900 T 0057 

00110000 T 0059 



X***********************************tk**«tk***************«r**************X 

REAL PROCEDURE CHAnGEWHICHC A}; ARRAY AC03; 

lEGIN 
REAL 1m 5* which; 

START 



00200000 
OOfOOlOO 
00200200 
00200300 
OF SEGMENT 



T 0061 
T 0061 
T 0061 

T 0061 

********** 
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« n 



m 



• • 



t # 







UABEL baoparam*getype#badtype#baoword*exit; 

BOOLEAN SRC*OBj; 
INTEGER L^ 
IF T l« ACSREGJsBASE-ACBASEn.FF » THEN 
BEGIN WHICH ta O; ACbASEI !• '*NOPARAH**; 

sreg iw base; msgptr i* lo; 

\ GO EXIT 

Vend; 
s »■ sreg; 

MATC H (VE R ITABLE U CS3jJ9j9 3 3^6 U2]#'»TYpE " ) 

INC(SREG)r^= — 

IF T » 1 THEN 
/BEGIli 
/ MATeH(WHICHtB0&ACSREQU6l6»42a#'*PASSW0R*') WHICHIsS 

ELSE MATCH(WHICH*''NAME •• ) WHICHJ»»6 

ELSE GO BAOPARAMi 

\ GO exit; 
end; 

MATCHCACSaEG3.C6l423#''TyPE " ) 
WHICH 19 li 



CAtlNC(SREG)3.[6l42]«''T0 
SREG3«C3*33 NEQ THEN 



♦♦) inc(sreg); 



AtBA5E+l3 »• ABSCFlNDAWORD(ACSREG]#TYPETABUEtU# 

NUMOPTYPES)J n Q THEN 



CH l« O; MS6PTR l« 20; 
EXIT 

USE 

SREQ3 « "«" THEN 

iBASE*U »• ABS<FlN0Al.eTTER<AJlNC(SREG)3# 
^^ TYPETABLEtU* NUMOFTYPES)) 

• THEN GO BAOTYFE; 

SE GO baoparam; 

T 

end; X Of TYPt analysis 

IF AtSREG3ft3U3 » THEN GO BADPARAm; 
MATlHCACSREG3»I6«423*''SaURCE ") 
BEGIN 
IF OBJ THEN GO BADPARAm; 

SRC i» True; inccsreqj; 
end; 

MATCH<AtSaEQ3tC6l«23#''OBJECT " ) 
BEGIN 
If SRC THEN GO BADPARAm; 

OBJ IB true; inccsreg); 
end; 

if flnoawordcat§keq]# reswrqtableu 3« 
num0freswros) neq then 
baowoiidi 

BEGIN 
WHICH»»0; MSGPTR»'*29; GO EXIT; 





00100400 


r 0000 




00200410 ' 


r 0000 


X0518- 


00200420 


: 0000 




00200500 


r 0000 




08100600 ' 


r 0003 




00200700 ' 


r 0006 




00200800 ' 


r 0008 




00200900 ' 


r 0008 




00201000 ' 


r 0010 


X0404- 


00201010 ( 


; 0010 


X0404" 


00201020 ( 


: 0014 




0020U00 ' 


r 0018 




00201200 ' 


r 0019 




00201300 ' 


r 0020 




00201400 1 


r 0020 




0»|01500 " 


r 0024 




00201600 ' 


r 0029 




00202100 ' 


r 0029 




00202200 ' 


r 0032 




00202300 ' 


r 0032 




00202400 1 


r 0032 




00202500 ' 


r 0036 




00202600 1 


r 0037 




00202700 1 


r 0042 




00202800 1 


r 0044 




O02029OO 1 


r 0044 




00203000 1 


r 0047 




00203100 1 


r 0048 




00203200 1 


r 0049 




00203300 1 


r 0090 




00203400 1 


r 0052 




00203500 1 


r 0052 




00203600 1 


r 0055 




00203700 1 


r 0055 




00203800 1 


r 0056 




00203900 1 


r 0057 




00204000 1 


r 0059 




0020«100 1 


r 0060 




00204200 1 


r 0062 




00804300 1 


r 0062 




00204400 1 


r 0063 




00204500 1 


r 0063 




00204510 1 


r 0065 




00104515 1 


r 006s 




00204520 1 


r 0068 




00204525 1 


r 0069 




00204530 1 


r 0071 




00204535 1 


' 0071 




00204540 1 


r 0071 




00204545 1 


" 0075 




00204550 1 


• 0076 




00204555 1 


r 0078 




00204600 1 


' 0078 




00204700 1 


' 0079 




00204800 1 


' 0080 




00204900 1 


r 0081 




00205000 1 


0081 



p 



X MUST BE FILE NAME 




) 



) 



") INC(5REG); 
BADPARAMJ 



WORD 



ENOI 
ACBASE] l<; ACSREQ}.C6i423i 
WHICH I ^ 2i 

IF A CINCCSREG)] EQU 'V THEN 
BEGIN 

IF UtwT-CSREG'SJ E8U THEN SO TO BAOPARAM; 
IF L GEO 2 THEN FIXUSER (S#A# EXIT. FALSE) i 
IF A ClNCCSREGn.C3l33 GTR THEN 
A tBASE + 53l»A tSREQ].t6M23 

ELSE GO TO badparam; 

INC (SREQ)i 
END 
ELSE 

A CBASE<^5]I«USERC0QE; 

MATCH CA C5REG3iC6t«23,«TYPE 
MATCH<ACSREG3,C6|42 3#''L0CK 

EGIN WHICH I* a; 
iNccsecG); 

ND EUSE WHICH l» 3; 

MATCH<ACSREG3.t6|423#''T0 

IF AtSREG3.C3«33 ■ THEN GO 

FiNDAWORDCAtSREGJ* RESWRDTABLEt 1 3 * 

NUMQFRESWHOS} NEQ THEN GO BAOWORO/ 
C0MPARCACSREG3.C6|ft23, "FACTOR "> OR 
COMPARUCSfiEG3.[6U23#''SF •» ) THEN 
BEGIN INC(SREQ); WHICH l« 7; % CHANGING SAVE FACTOR 
MATeH(AC5REQ3tt6U23.''TO " ) INCCS«Ea)^ X OPTIONAL 
AtBASE + n««IF SRC THEN 1 ELSE IF OBJ THEN 2 ELSE O; 
IF AC5REG3.C3«33 » P THEN % NUMBER 
BEGIN AtBASE+23 l» AtSREQ3; 60 TO EXIT; 

END Else go badparami 

end; % IF "FACTOR" 
A CBASE<t>13<*A CSREG3f C6i423i 
IF A CINCCSREG)] EQL "/" THEN 
BEGIN 

IF LI»T»(SREG*5) EQL THEN GO TO BADPARAM; 
IF L GE« 2 THEN FIXUSER CS# A, EXIT, FALSE ); 
IF A CINCCSREQ33,C3I33 GTR THEN 
A t8ASE+63l«A tSREG3, [61423 

ELSE GO TO baoparam; 

END 
ELSE 

BEGIN DICR (SREG}; 
A CBASE'^63i«'USERCQDEi ENO; 
EXIT! 

IF WHICH NEQ THEN 
IF T NEQ SREG - S THEN 
BEGIN WHICH t« O; SREG t« StT; 

MSqPTR i» lo; 
END Else 

Q CT O T Kl 

IF WHICH NEQ 7 AND CSRC OR OBJ) THEN 

BEGIN 

A[8REg3I«'CIF SRC THEN "SOURCE " ELSE "OBJECT ")& 6t3»45l33; 

BADPARAMI 

WHiCHi«o; msgptri'b; 
End; 



*0516' 
X0516< 
X0918« 
X0518' 
X0516" 
X0518' 
X0518' 

xosie- 

X0518" 
I05l8« 
X0518' 
X05l8« 



X05I8' 
X0518' 
X0518' 
»0518« 
X0518' 
X0518' 
X0518" 
X0518- 
X0518' 
X0518' 
*0518' 
X03I8« 



00203100 
00209200 
00205300 
00205400 
0020S405 
00205410 
09205415 
00205420 
00205425 
09205430 
00205435 
09205440 
00205445 
09205430 
00805455 
00205500 
09205600 
00205700 
00205600 
00205900 
00206000 
00206100 
00206200 
00206205 
00206210 
00206215 
00106220 
00206225 
00206230 

00206235 
00206240 

09206245 
00206300 

00206305 
09206310 
00206315 
09206320 
00206325 
09206330 

06206335 
09206340 
00106345 
00206347 
09206330 
00206400 
00206500 
00206600 
00206700 
00206800 
00206900 
00206910 
00106920 

00206930 
00206940 

002069S0 
00206960 
00106970 



T 
T 
T 
P 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 

C 
P 

C 
P 
C 

p 

C 
C 
C 
C 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0086 
0066 
0088 
0069 
0091 
0092 
0094 
0099 
0101 

0103 
0105 

0106 
0106 
0106 
0109 
0112 
0112 
0116 
0118 
0121 
0126 
0128 
0129 
0131 
0134 
0137 
0140 
0144 
0149 
OlSl 
0157 
0137 
0157 

0160 
0162 
0162 
0165 
0169 
0172 
0174 
0176 
0176 
0176 
0177 
0179 
0160 

0160 
0182 

0185 
0186 
0186 
0186 

0188 
0189 

0192 
0193 
0195 



i » 



» * 



ENOJ 
ERRSm »ai ACSRCG]; 

chanqewhich «« which; 
comment compiler chtck* 
if which e9l i or which eql 2 then x compiler name specified 
if checkblf(cacbase*n-u oiv 1/ restricte0language5 j then 

begim changewhich i« o; msqptr i«49; end; 

END OF CHANGEWHICHI 



00B069a0 T 0195 



00g07000 




0195 


09207100 




0196 


00207110 




0196 


00207U2 




0196 


O02O7U4 




0198 


09207U6 




0202 


00207200 




0205 
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X#******************************4i***************************** 

BOOLEAN PROCEDURE TIMECHK<LCW#A); BOOLEAN LCW; ARRAY ACO]; 

COWMENT check users TIME PERIOD FROM 24 BIT STRING* 
BEGIN INTEGER TIMl# TIM2#SKP j BOOLEAN OK; LABEL EXIT; 

BOOLEAN STREAM PROCEDURE T IMCK(STRG#SKP,T IMU; VALUE STRG; 
BEGIN LOCAL SKJ LABEL EXIT; 

sii»Loc stRg; siissu*; x point to 24 bit "TIme" string 

0n»L0C STRG; DSI»4 CHr; X EXTEND TO 48 BITS 

SIi»SkP; Dll»LQC SK; DSiPWOS; * NO OF BITS TO SKIP (CRNTiTlME) 

SIlwLOC STRG; SKIP SK SB; X POINT TO CURRENT HOUR 

IF SB THEN TALLY«*i; timcki«tally; taliyi»sk; 

24(IF SB THEN JUMP OUT ELSE X FIND 1ST "ON" BiT POSITION 

BEGIN Skip SB; TALLYI»TALLY*U EnD); X COUNT EACH BIT SKIPPED 
IF TOGGLE THEN ELSE 60 TO EXlTi X NO BITS "ON" 

sk»«tally; sii'loc sk; dii^timi; osi«»wos; x ist "on" bit position 

TALLYjsTALLY+i; X POSITION OF NEXT BIT 

skiwTaLLY; Sii»LOC SK; 0H*SKp; ds»»wds; 
ExiTi End stream procedure timck; 



00224400 T 0061 

00224500 T 0061 

00224600 T 0061 

00224700 T 0061 

00224800 T 0061 

START OF SEGMENT *****♦*' 

00224900 T 0000 

00225000 T 0000 

00225100 T 0000 

00225200 T 0000 

00225300 T 0000 

00225400 T 0000 

00225500 T 0001 

00225600 T OOOl 

00225700 T 0002 

00225800 T 0004 

00223900 T 0005 

00226000 T 0007 

00226100 T 0007 

00226200 T 0006 

00226300 T 0009 

00226400 T 0010 
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VALUE stkG'SKp^rem; 
xextend 



■4CHR; 
X POINT 

END 



TO NEXT BIT 



00226500 
00226600 

0S226700 
00226800 
00226900 
00227000 
00227100 
00227200 
00227300 



0011 
0011 

0011 
0011 
0012 
0013 
0015 
0017 
0017 



PROCEDURE timemss<strtime#fintime,ok); 

VALUE stRtime*fintime#ok; integer stbtime*fintime; boolean ok; 

BEGIN 



00227400 
00227500 
00127600 
00227700 
00227800 



0018 
0018 
0018 
0018 
0018 



STREAM PROCEOURE MSGl(WORK); 

BEGIN 0II«WQRK; 

DSI«49LIT»'S0RRY#YUU ARE NOT SCHEDULED FOR TJME AT THIS HQUR"; 
END MSGlJ 



00227900 


T ooie 


00228000 


T 0018 


START OF SEGMENT 


********** 


00226100 


T 0000 


00226200 


T 0000 


00228300 


T 0000 
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00228400 T 0006 



X*********************************** 



STREAM PROCEOURE MSG2( WORK* STRT IME^FINTIME ); VALUE STRT IME'FINTIME^ 



X********************************** 
BEGIN DIJsWORK; 

DSIa33LIT"YauR NEXT SCHEDULED TIME IS 
SI««LOC ST8TIME; 0SI«4 DEC; DS«»4 LIT 

siMLoc fintime; dsi«« decj 

END MSGg; 



FROM 
" TO 






00228500 
00228600 

00228700 
00228800 
00228900 
00229000 
00229100 
00229200 



0007 
0007 

0007 
0007 
0007 

oou 

0013 
0013 



X*********************************** 
STREAM PROCEBURE MSG3(W0RK); 

X********************************** 
BEGIN Dlt«W0BKJ 

DSIi»40LIT"PLEASE call BACK AT YOUR SCHEDULED TIME, "J 
END MSG3; 



00229300 
06229400 
00229500 
00229600 
00229700 
00229800 



0013 
0013 
0013 
0013 
0014 
0019 



X*********************************** 
STREAM PROCEDURE MSG4< WORK#FInT IME ) ; VAuUE FINTIME; 

X********************************** 
BEGIN OlIiWORKi 

DSI»42LIT''Y0U ARE SCHEDULED TO USE THE SYSTEM UNTIL "^ 

sp^Loc fintime; dsi«4 dec; 

END MSG4; 



00229900 




0019 


00230000 




0019 


00230100 




0019 


00230200 




0019 


00230300 




0020 


00230400 




0025 


00230500 




0026 



X*********************************** 

IF DK THEN 

BEGIN MsG4(wgRKfFINTlMe); TWXQUTC LL^WORKCO 3,46,2 ); END ELSE 
BEGIN MSGlCWORKj; TWXQuTCLL* WORK t 03, 49* 2); 
MSG2CW0R«#STRTIME*FINTIME); TwXOUKLL* WORKCO 3 *45* 2); 
MSG3CWQRK}; TWXUUTCLL*M0RKC03,40,2}; ENOi 

END timemsg; 



0§230600 T 0026 



00230700 




0026 


00230800 




0027 


00230900 




0030 


00231000 




0034 


00231100 




0037 


00131200 




0040 
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X*********************************** 



00231300 T 0018 



«' t 



M^,' 



X********************************** 



IF REaLCBOOLEANCTIMELIMITS. [241243) EQV 

BOOUEANCREAUCNOT FALSE ), C24l 24] ) ) EqL REALCNOT FALi>E) X ALL ON 
OR TIMEHMITS.C24J24] EflL THEN % NO BITS ON 

BEGIN TIMECHK|»TRUE; TIMERESTRlCTBlTI^REALCFALSE); SO EXIT; END, 
TIMIUO; TIM2I«»S«P»»TIME(1)/216000 • 0,5t % CURRENT TIME 
QKI»TiMCK(TlMELlMlTS#SKP,TlMl)i TlMH»(TIMl MOO 24) X 100* 
TlM2UCNEXTIME(TIMELIMITS,SKP,TlM2ls24-SKP + TlM2) MOD 24)»<100; 
TIMEMSGCTIMI#TIM2#0K); % SEND APPROPRIATE MESSAGE 
TIMERESTRICTBIT l« REALCTRUE); NOTlFYBiT l« REALCFAl^E); 

notifytime !• o; timechk i* ok^ 

EXIT! END PRBCEOURE TIMECHK; 



00231400 
0023IS00 
00231600 
00231700 
00231S00 
00231900 
00232000 
00232100 
00232200 
00232300 
00232400 
00832500 
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0018 
0018 
0020 
0021 
0023 
0028 
0031 
0036 
0041 
0042 
0047 
0049 
NEXT 5EG 



PROCEDURE OUTPUTNUMBERSCLCW*A); BOOLEAN LCw; ARRAY ACOJi 



**** 



**** 



BEGIN 

% FORMATS SEQUENCE NUMBERS FQR SPECIAL DEVICES 

% "»♦♦ CLEARS SCREEN 

% ••4« HOMES CURSER ( CQNRAC ONLY ) 

X "!« LINE ERASE ( CQNRAC ONLY ) 

% •♦>„ SHIFT OUT CHARACTER 

% QMk SHIFT IN CHARACTER 

X "/" SHIFT CONTROL CHARACTER 

X "tw LINE FEED CCONRAC ONLY) 

X "•" CARRIAGE RETURN 

X ARROW END OF TEXT CHARACTER 

REAL I*PTR*LST*INC; BOOLEAN LF; 



START 



X,,., #..,,. 

REAL STREAM PROCEDURE AOORESS(W); 
BEGIN SIl«w; AODRESSlsSi; END; 



00234600 
00234700 
00234B00 
00234900 
00235000 
00235100 
00235200 
00235300 
00235400 
00235500 
00235600 
00235700 
00235800 
00235900 
00236000 
OF SEGMENT 
00236100 
00236200 
00236300 



T 0061 

T 0061 

T 0061 

T 0061 

T 0061 

T 0061 

T 0061 

T 0061 

T 0061 

T 0061 

T 0061 

T 0061 

T 0061 

T 0061 

T 0061 
********** 

T 0000 

T 0000 

T 0000 
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STREAM PROCEDURE CQNVERTANOFORMCPTR* N)* VALUE n; 

X. ,.,,.,,, *••**• , 

begin LOCAL V*5V; 

X CONVERTS SEQUENCE NUMBER TO DECIMAL FORM AND BLANKS 

X LEADING ZEROS* UPDATES PTR AT FINISH 

SIIbLOC NJ OIIsLQC Vi DS»s8DECi DIUOl-8; DSI*7FILL; 

si»»Loc v; oj»»ptr; oii»oi+5; dii»ocj 

8(IF SC*** " THEN Slti»SI + l ELSE DSmCHR); 

svivoi; sii'LOC sv; oiisptri osi>mos; 
End STREAM PROCEDURE convehtandform; 



00236400 




0001 


00236500 




OOOl 


00236600 




0001 


00236700 




0001 


00236600 




0002 


00236900 




0002 


00237000 




0002 


00237100 




0003 


00237200 




0004 


00237300 




0006 


00237400 




0007 



STREAM PROCEDURE PUTCHAR(PTR*N*CHAR ); VALUE N#CHAR; 



00237500 T 0007 
00237600 T 0007 



BEGIN LOCAL Sv; 

% TRANSFERS "N" CHARACTERS FRQM "CHAR" AND UPDATES 

X PTR AT FINISH 

SiuLOC char; dii»ptr; oifoi+s; oi««oc; 

SiiwSl + 8j 5II*5I«»NJ DSIwN CHR/ 

sv«"Di; sii*LOc svi oii»ptr; osi»wos; 
End stream procedure putcharj 



00837700 


T 


0007 


00237800 
00237900 




0007 
0008 


00238000 
00138100 




0008 
0008 


00238200 
00238300 




0009 
0010 


00238400 


T 


oou 



lstipseqlast; inci»increment 
IF oevice«»bios then putcharc 

IF (LFt»DEVlCEsCONRAC) THEN 
FOR I»«l STEP 1 UNTIL 10 00 

iegin 

putchar(ptr»2*">^''); % sh 
Convert andfoRMCptrmlst»« 

PuTCHARCPTR#2f ClZJ&C^^^JC 

ip I lss 10 then % form c 
begin 
putqharcptrm'"-"); % 

IF LF then PUTCHARtPTR 

£NDJ 

End I loop; 
putchar(ptr#l#leftarrow); x 
chkseqnm8«ulst; % last sequ 

TWX0uT(LL^W0RKCQJ'200'-l)i X 
END PROCEDURE OUTPUTnUMBERS; 



; ptri»aodre55(work[o3); 

PTR^l*"*"); X CLEAR THE SCREEN 
PUTCHAR(PTR«J#''4''); X HUME THE CURSER 
X WRITE OUT 10 SEQUENCE NUMBERS 

IFT OUT# SHIFT CONTROL 

lst + ino); x formed sequence number 
36i42»63); x shift contkol* shift out 
akriage return and line feed 



CARRIAGE RETURN 
^l,"*"}; X LINE FEED 



TERMINATE STRING WITH ETX 
ENCE NUMBER TO BE TRANSMITTED 
SEND SEQUENCE STRING 



00238500 
00238600 
00236700 
00238800 
00238900 
00239000 
00239100 
00239200 
00239300 
00239400 
00239500 
00239600 
00239700 
00239800 
00239900 
00240000 
00240100 
00240200 



30 IS 46 LONG* 



OOU 
0016 
0019 
0022 
0024 
0024 
0025 
0028 
0030 
0031 
0031 
0033 
0035 
0035 
0037 
0039 
0040 
0042 
NEXT SEG 



X********************* «*«************************************#****** 



X forw 

X * « * 4k # Hr * 4' 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PRQCEDURE 



♦♦*♦*****♦****♦**♦*, 



ARD DECLARATIONS GQ HERE. 

AN LCWj 

LCW#A); 



BYE(LCW#Aj; BOOLE 
GETSOMETHINGTODOC 

ssmsq; forward; 
rememberthiscucw); bqole 
mcpmsgclcw*a); boole 

LlNECLEAHaCW»An BOQLEA 
SETUPflLESCLCWfA); BQOLE 

dogcatcher(lcw*a); boolea 



********************************* 

ARRAY AC03; forward; 

BOOLEAN LCw; array AtOJ; FORWARD 

AN LCw; forward; 

AN LCW; ARRAY ACOJi FORWARD; 
N LCw; ARRAY ACQ]; FflRWARO; 
AN LCW; ARRAY ACOi); FORWARD; 

LCw; ARRAY Ato3; fqrward; 



N , „. 

X*************************«*****************#* ********************** 
REAL PROCEDURE GETPSWD( WOrK*STACK*MAX*EADRS >; 
X******************************************************************* 



VALUE MAXfEADRS; REAL 

BEGIN Label dummy; 



stack>max#eadrs»work; 



REAL STREAM PROCEDURE GTPSWOtWQRK* STACK#MAX*EADRS); VALUE M 
X********************************************************** 
COMMENT SPECIAL SCANNER FpR OBTAINING PASSWORD ANO/QR CHARGE 
which May START WITH A DIGIT AND CONTAIN SPECIAL CHARACTERS; 
BEGIN LOCAL SV#OV#DN*H,N; LABEL LOOP, EXIT; 



MAX#EADRS; 

********* 



**** 00900000 
00900100 

** 00900200 

00900300 

; 00900400 

00900500 
0Q900600 
00900700 
00900800 
00900900 
00900910 

**** 00901000 
00901005 

**** 00901006 

00901007 

00901008 

START OF SEGMENT 

00901009 

**** 00901010 
00901015 
09901020 
00901025 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0061 
0061 

0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 



********** 
T 0000 

T 0000 
T 0000 

T 0000 
T 0000 



31 



* t 



MA 
LOOPt 
IF 
IF 
IF 



DHwEADRS) DSIwUiT UEFTARROw; X END OF RECORD MARK 

sit»wORKj oii'STack; dn«»oi; 

63(IF SC«" " THEN SIlwSHl EU^E JUMP OUT); 
IF TOGGLE THEN GO TO ExIT; % BLANK RECORD 

if sc^'h" then x check for "hello" 
Begin 

DlMLOC H; DSI»5LIT"HELL0"; DIt«Dl-5i 
IF 5SC»DC THEN ELSE SimSI-S; 

End; 
x(oi«*dn; dsi»8liT"0 "; on»oi-7; 



Slls5I+i; 60 TO 

sitssi+i; go to 

% CHECK FOR END 



loop; end; 
loop; end; 
of record 



IF SC="*" THEN JUMP out; 



Hi 
01 

ta 

EXITI 
TA 
EN 



Sca" " THEN BEGIN 
Sca«,tf THEN BEGIN 

sc'LEFtarrow then 

Begin 

syt^si; siibLOc sv; su»5i+5; 

Dvl>Di; DlioLUC EADRS; DIl^DUS; 

If 35c»dc then jump out to exit; 
sitssy; oi>«ov; 
End; 
dsi^chr; tallyi*i; 

6CIF SC»" " THEN JUMP OUT; 
IE SC»LEFTARROW THEN 
BEGIN 

svissj; sii'LOC sv; sii"Si*5; 
DVi*Di; Dii'LOC eadrs; oii»oi+5; 
IF 3sc»Dc then; 

sii«sv; Dii»Dv; if toggle then jump out; 

end; 
os»»chr; tallyihtally*!); 
•tally; sv««si; sii»loc h; siissi+z; dih»onj 
«*Dl*7; DN»»oi; sii»»sv; 

LLy»»N; TALLYI»TALLY+1; NtaTALLYj; X END "MAX" LOOP 

LLYi»N; gtpswDi«tally; 
D stream procedure qtpswd; 



D5i«CHR; X SIZE 



00901030 
00f0J035 
00901040 

00901045 
00901050 
00901055 
00901060 
00901065 
00901070 
00901075 
00901060 
00901085 
00901090 
00901095 
00901100 
OOfOllOS 
00901110 
0i901ll5 
00901120 
00901125 
00901130 
09901135 
00901140 
03901145 
00901150 
00901160 
00901170 
00901160 
00901190 
00901200 
00901210 
09901220 
00901230 
00901240 
00901250 
00901260 



0000 
0000 
0001 
0004 
0004 
0005 
0005 
0007 

0008 
0008 

0010 
0010 
0012 
0014 
0014 
0014 
OOIS 
0016 
0017 
0018 
0018 
0018 
0020 
0021 
0021 
0022 
0023 
0023 
0025 
0025 
0026 
0027 
0028 
0030 
0030 
0031 



GETPSWOt'GTPSWDC WORK* stack* MAX* EADRS); 
END PROCEDURE GETPSWD; 



00901270 T 0032 
00901260 T 0036 
31 IS 39 LONG* NEXT SES 



x****«*************************************«*********************x 

PROCEDURE HITHERE (LCW* A); BOOLEAN LCw; ARRAY AtOJi 
X**********4********************ilr********************************«X 
BEGIN 

stream pr8cedure ans<w)* 

Begin oi j» m; 

ds l« 24 lit "enter user code* please-"; 

End ans; 



01000000 
01900100 
01000200 
01000300 
01000900 
START OF SEGMENT 
01001000 
01001100 
01001200 



T 0061 

T 0061 

T 0061 

T 0061 

T 0061 

T 0000 

T 0000 

T 0003 



32 



STREAM PROCEDURE UNO (W* T/UC* ID; VALuE T*LL; 
BEGIN 

Label aft#eve; 

Oi t« WJ 

Si i« loc t; si m si*7; 

If SC » "A" THEN DS Is m LIT "GOOD MQRNING# ♦♦ 
ELSE 

BEGIN SI »■ LQC T; 
IF SC LSS "l" THEN 
BEGIN UPSJ 
IF SC LSS "6" THEN 
AFTI OS »• 16 LIT "GOOD AFTERNOON- " 

ELSE 
EVEl BS I" in LIT "GOOD EVENING* " 
END 

ELSC 

BEGIN 

yps; 

if sc » "a" then go aft else go eve; 

end; 
end; 
Si \m uc; Si i« si + u 
DS i« 15 chr; 

DS Iw 18 LIT ♦♦ YOU HAVE STATION "; 

sj m LOC ll; ds I* 2 dec; 

DS l» 4 LIT •♦ "; 

End OF LNo; 



OiOOUOO 

01001400 
01001300 

01001600 
01001700 

01001800 
01001900 
01002000 
01002100 
01002200 
01002300 
01002400 
0ie02500 
01002600 
01902700 
01002800 
01002900 
01003000 
01003100 
01003200 
01003300 
01003400 
01903500 
01003600 
01003700 
01003800 
01003900 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0003 

0003 
0004 
0004 
0004 

0004 
0007 
0007 
0007 
0008 
0009 
0009 
0012 
0012 
0015 
0015 
0015 
0015 
0015 
0016 
0016 
0016 
0017 
0017 
0020 
0020 
0021 



STREAM PROCEDURE PSWRO (W); 

Begin 
Local t; 
oi I* nt 

DSI»17LIT''AN0 YOUR PASSWORD"; 
% VDiD 

End pswrd; 



01004000 

01004100 
01004200 
01004300 
01004400 
01004500 
01004600 



0021 

0021 
0022 
0022 
0022 
0024 
0024 



stream procedure chrgcw); 
Begin 

Dl l« Hi 

Ds t» 18 LIT "ENTER CHARGE CODE*"; 

End chrg; 



01004700 
01004800 
01904900 

oioosooo 

01005100 



T 
T 
T 
T 
T 



0025 
0025 
0025 
0025 
0027 



LABEL STaRT#ERR*8A0#EXIT*SCHE0#CASE4#STARTANEW; 

LABEL MINDUP»PSWD#L0GG0N«CHARG*NEXTBL0CKJ 
INTEGER i; 

REAL t*usr#fil; 



01005200 T 0028 

01005300 T 0028 

01005400 T 0028 

01005500 T 0028 



• # 



boolean mtchi 
case doing of 
Begin 

begin x case , , 

if loggedqn then 

BEGIN 

IF SCHEOULINE THEN GOERRCHEULO "#40); 
IF FILENAME NEQ THEN 
IF TPCUUNT NEQ OR FILENAME NEQ SOURCEFiLE THEN 
IF NOT NOSAVE THEN 
BEGIN 

nosavei«true; goerrcno SAVE^^aj; 

ENDi 
9LEAR<A(BASE3#3); % iERQ OUT « WORDS OF STACK 

TI«GETP5W0CW0RKCn*ACBASE*n'3#W0RKENDADRS); X "HELLO" INPUT 
IF T GTR THEN X GOT SOMETHING AFTER "HELLO" 
COMMENT PROCEDURE "BYE" DOES NOT DISCONNECT WHEN 
AC8ASE3 GEQ 50# DOES NOT PRINT MESSAGES WHEN 
ACBASE] GEQ lOOj 

BEGIN Ai:BASE]f«124fTJ 

BYE(LCW#AC*3); L0G0FF(LCw*At*3); 

GO TO pswd; 

ENDi X IF PARAMETERS TO HELLO 
ACBASE} l» 75; X FLAG AS HELLO 
BYE(LCW# AC*]); LOGUFF(LCW,AC*n; 
lAM I* VHELLUI 
WANT I* WAITFOR Is Oi 
tND; X IF HELLO 
lOTOT 1? ETIME I" PTIME »» INPUTCTR M O; 
IF SCHEOULINE THEN 
BEGIN 
ACBASE3i«126l ACBASE^U i iuSERCODE; 

GO TO pswo; 

end; X IF LOGGEOON 
STARTI IF NOT LQGGINGON THEN 

BEGIN 
STARTANEWl ANS{WORK); 

TWXOUTCLL* W0RK[03* 24* NOCRLF); 

LOGGINGQN l« true; 

end; 
doing is u 
FiLESOK «» false; 

WAITFOR t» VINPUT; 
ACBASE3l»TEMPl»5i 

END OF CASE O; X « ,,,. 

BEGIN X CASE 1 •..# ..•, 

CLEAR(A£Bi^SE3f 3); % ZERO OUT 4 WORDS OF STACK 

TtsGETPSWDCWORKCn* ACBASE4>U*3#W0RKEN0ADRS); LOGGINQON t »TRU£; 
IF T » THEN GO TO ERR^ X NO INPUT 

IF YQUFlNOAVERB CAtBASe*n#veRBTABLE(03#NUM0F VERBS) THEN 
BEGIN IF ACBASE + UfCF NEQ VHELLO THEN 
IF AtBASE+13tCF ■ VBYE THEN 

BEGIN 

lAM l» VBYE; USERCOOE »» "GONE "; 

lOTOT I* ETIME I* PTIME l» INPUTCTR »» Oi 

DOING »» ACBASE3 I" O; 

GO EXIT 



01005510 


T 0028 


01005600 ' 


r 0028 


01005700 


T 0028 


01005800 ' 


r 0028 


oieosvoo ' 


r 0028 


01Q06000 ' 


r 0029 


01006100 - 


r 0030 


01006110 ' 


r 0037 


01006120 ' 


r 0038 


01006130 " 


r 0041 


01006140 1 


r 0043 


01006150 ' 


r 0043 


01006160 1 


r 0052 


01006170 1 


r 0052 


01006200 1 


r 0053 


01006300 1 


r 0058 


01006400 1 


r 0059 


01006500 1 


r 0059 


01006600 1 


r 0059 


01006700 1 


r 0059 


01006600 1 


r 0061 


01006900 1 


r 0065 


01907000 1 


r 0065 


01907100 1 


r 0065 


01007200 1 


r 0066 


01007300 1 


r 0070 


01907400 1 


r 0071 


01007500 1 


r 0072 


01007600 1 


r 0072 


01007700 1 


r 0076 


01007800 1 


r 0077 


01907900 1 


■ 0077 


01008000 1 


' 0081 


010081QO 1 


' 0081 


01908200 1 


0081 


01008300 1 


' 0083 


01008400 1 


r 0083 


01008500 1 


' 0085 


01Q08600 1 


• 0086 


01008700 1 


0089 


0100880Q 1 


0089 


01008900 1 


- 0089 


01009000 T 


0092 


01009100 T 


0092 


01009200 T 


0094 


01009300 1 


0095 


01009310 T 


0095 


01009400 1 


0096 


01009500 T 


0104 


01009600 T 


0106 


01909700 T 


ouo 


01009800 T 


0112 


01009900 T 


0115 


01010000 T 


0115 


01010100 T 


0117 


01010200 T 


0122 


01010300 T 


0123 



END % IF BYE 
ELSE 

LIT0UT(''FUNNY,.«#1); X IF NOT HELUO 
ERRI MSGPTR »» Zli 

GO TO STARTANErt^ 

end; X if a verb c oh no input ) 

ACBASE3 «•» 124 + Ti 

IF f LSS 2 THEN X NO PASSWORD GIVEN YET 
BEGIN PbWRDCWQRK); 

twx0ut(ul»w0rkc0j#17m); 
pswoj if atbasel lss 126 then x nq password given yet 
blackout; 
end; 

lU (CACBASE<^Ut[6l2n * ACBASE^U • U7l2n > MOD 29} t U 
NEXTBLOCKI 

LL0lSKREA0l»USERBA5E*n X052i- 

DOING l« 2J 

WANT !• vdjskread; 

TEMPIsB; X MUST NOT BE 4 - SSFILE USES AS FLAG XQ523* 

END CASE IJ X ,.,,. ..••..,. .f *..••...•.. 

BEGIN X CASE 2 • 

FOR T l« STEP 2 UNTIL 28 DO 
MATCHCW0RK[T]*AC8ASE*UiC6l42 3) 

BEGIN 

USR l» WQRK[T*Uf C33U5]; X RELATIVE DISK ADDRESS 

U5ERL0CI«U5EKBASE+USK; X0521- 

LLDISKREAD «» USERLOC; 

WANT »« VOISKREAO; 

DOING }« 3J 

GO EXIT 

end; 

IF CII«W0RKCnftl8ll53) 6TR THEN 60 TO NEXTBLOCK; »LINK 

W0RKC13 |« "*******•♦; % IF NOT MATCHED 

DOING l« 3/ 

END CASE 2J % «..t**t**..tt.f..»f*t.«t.«.f.ft.*.t**t.t*f*t.« 



X VOID 



CASE4} 



BEGIN X CASE 3 •.....,..•..•.•.•... 

RESTRlCTEDLANGUAGESI»WORKt83; 
M0VC(2*W0R0S,W0RKC9 3#RE5TRICTEDVER8S); 
IF SCHEDULiNE THEN 
BEGIN 

l0gqnclcw«ac*3}; go to scheo; 
end; 

USERC0DEl»W0RKC13; 

ACBi§E*63l*W0RKC23; X SAVE PASSWORD 

CHARGE<"W0RKC3]J 

TlMELIMITSI»WORKt73i 

OPTlONBITS»»»WOI?KtU3; X USERS "SPECIAL" OPTIONS 

MOVE:<2#WOROS*WORKC43#ACBASE*ft3); X NAME FROM USERS FILE 

IF ACBASE3 GTR 125 THEN GO TO CASE4; X HAVE PASSWORD 

DOING I* 4; 

WAiTFOR »^ vinput; 

END CASE I; X ..««...,•..•. .....ft.. 

BEGIN X CASE 4 .,, ,.•,••....,..,• 

IF ACBASE3 LSS 126 THEN X NO PASSWORD GIVEN YET 
AtBASE3«»l25*GETpSW0CW0RKCU*AtBASE*23#2,W0RKENDA0RS); 
L0G6IN60N l» FALSE; 



01010400 T 


0124 


010 


10500 T 


0126 


ois 


10600 T 


0126 


Oil 


10700 T 


0127 


010 


10800 T 


0129 


010 


10900 T 


0131 


019 


llOOO T 


0131 


010 


11100 T 


0132 


OIQ 


11200 T 


0133 


oie 


11300 T 


0135 


oie 


U400 T 


0137 


010 


11500 T 


0138 


010 


11600 T 


0139 


010 


11700 T 


0139 


010 


11710 T 


0143 


010) 


11800 P 


0144 


019] 


L1900 T 


0145 


010 


12000 T 


0146 


010 


12100 P 


0147 


010) 


12200 T 


0148 


010 


12300 T 


0148 


010: 


L2400 T 


0148 


OIQ] 


L2500 T 


0150 


oie: 


L2600 T 


0150 


oioj 


12700 T 


0154 


010] 


12710 P 


0156 


010: 


12720 T 


0158 


01§] 


12800 T 


0159 


010] 


12900 T 


0160 


016] 


13000 T 


0161 


010] 


L3100 T 


0161 


0103 


L3110 T 


0163 


0103 


13200 T 


0166 


0103 


L3300 T 


0167 


0103 


13400 T 


0168 


0103 


t3500 T 


0169 


0103 


L36O0 T 


0169 


01Q3 


13700 T 


0170 


010] 


13800 T 


0172 


0103 


L3810 T 


0173 


0103 


13820 T 


0174 


0103 


13830 T 


0178 


0103 


L3900 T 


0178 


0103 


14000 T 


0179 


0103 


14100 T 


0181 


0103 


14110 T 


0183 


0183 


4200 T 


0184 


0103 


14210 T 


0186 


0101 


i4300 T 


0188 


Olfl 


4400 T 


0190 


0103 


L4500 T 


0190 


0103 


4600 T 


0191 


0101 


.4700 T 


0191 


0101 


4800 T 


0192 


OIB] 


4900 T 


0192 


01Q3 


5000 T 


0193 


OIOJ 


tSlOO T 


0199 



• « 



% PASSWORD 



MAT0H(USCRC00e#ACBASE'^lJ.C6U2] } 

MATCH(ACBA5E+6 3fACBASE*2 3.C6|42 3) 
BEGIN 

MATCH(A[SBASE]*USERCOOE) MTCH l« TRUE; 
IF RESTART AND NOT MTcH THEN X SCRATCH "QUO" WRK FILES 

BEGIN 

USR»»AtSBASE3; T l*LL&13[33l 41 1 73; FIl l»MAKEFN C" IS**,!.!, ); 

R£MOVEFIUE(T#FIU#USR); 
REM0VEFILECT#FIl.t6l36 3*U5R); 
REMOVEFIl.E(T#FIL&''P"C 12142163* USR); 
REM0YEFIl£CTjFIt&''T"tl2l42l6 3#USR); 

end; 

NOT RESTART OR RESTART AnO NOT MTCH THEN % CHECK TIME 
NOT TIMECHk(LCW#AJ THEN 

BEGIN W0RKC03I*''»0 «; WORKCO 3 » U2 '63 » sl,EFTARROW; 
TWXOUT(LL*WORKC03'3#-U; X DISCONNECT THE LINE 
IAMlwWANTI»WAITF0Rl5»0; 60 TO EXIT; 

end; 

then % charge code needed 

AC8ASE3 « 127 THEN X CHARGE AUHEADY INPUT 
CHARGE »" ACBASE+33.t6l423; 

uoggon; 

IF ACBAS£3al27 
FOR IT 



IF 
IF 



IF 



CHARGE 9 
BEGIN IF 

BEGIN 

GO TO 

END % 
ELSE % ASK 

BEGIN 

chargi chrg(work); twxout(ul* w0rkc03 # is^nocrlf?; 

waitfori»vinput; 

DOING l8 5j 

GO exit; 

end; % ASKING FOR CHARGE 
END % IF CHARGE ** 
ELSE GD TO LOGGON; 

end; X IF MATCHED 
BAOt USERCOOE l« O; 

LIT0UT(«BA0C0DE"*U; 

msgptr j« 2i; 
GO to startanew; 

END CASE4; X •,. ,..,• • ••,,.,.* 

BEGIN X CASE 5 ..,.,, , ,.,., ,.,,, 

T««GETPSWOUORKC13»CHARQE#1<WORKENDAORS); CHARGE, C 1 » 5 3 « »0; 
IF T « THEN GO TO CHaRq; X MUST INPUT SOMETHING 
LOGGONI L0G0N(LCW*AC*3); 

lOTOT l« ETIHE I* PTiME l» INPUTCTR I* o; 
WAITFOR »« lAM Is VLISTNEHS; 

FlN0CLL&IAMt33l4lJ73*0#"NEWS •'^♦♦CANOE •'^"SITE "); 
DOING I" 6; 

END cases; X ..•••, 

BEGIN X CASE 6 ,,,. ,•.....•«.,,•..••...«..,•••• 

IF EVENTSU3 LEO THEN GO TO WlNDUP; X NO FILE 

IF EVENTS C33 LSS THEN GO TO WINDUP; X NO RECORDS 

LLDISKREAD«»EVENTS C23.Cl8«l53; 

WANT im VDISKREAD; 

D0lNGia2; X TRANSFER TO 

iamisvssfile; x ssfile 

A t8ASE*33»«LL; 

END CASE6; X ..••••. t ...••.••..•...•••..•••.,••. • 

BEGIN X CASE 7 •.•... •.,•#...,••• 



X0523' 
X0523' 

X0523" 
X0523' 
X0523' 



010 


15200 T 


0202 


010 


15300 T 


0202 


010 


IS400 T 


0210 


019 


15500 T 


0211 


019 


15600 T 


0214 


010 


15605 T 


0216 


010 


15610 T 


0216 


010 


15615 T 


0220 


010 


15620 T 


0223 


010 


L5625 T 


0225 


010 


15630 T 


0229 


010 


15635 T 


0232 


Ot«] 


15700 T 


0232 


010- 


15800 T 


0235 


010] 


15900 T 


0237 


010 


16000 T 


0241 


010] 


L6100 T 


0243 


OlQ 


16200 T 


0247 


010] 


16300 T 


0247 


010] 


16400 T 


0248 


010] 


16500 T 


0249 


010] 


16600 T 


0253 


010] 


16700 T 


0253 


010] 


16800 T 


0253 


010] 


16900 T 


0253 


OIOJ 


,7000 T 


0254 


010] 


L7100 T 


0257 


010] 


17200 T 


0258 


019] 


17300 T 


0259 


0103 


17400 T 


0261 


010] 


17500 T 


0261 


010] 


17600 T 


0261 


0101 


17700 T 


0261 


010] 


17800 T 


0261 


0101 


L7900 T 


0262 


010] 


leooo T 


0263 


0191 


18100 T 


0264 


0101 


18200 T 


0266 


010] 


18300 T 


0266 


oioj 


8400 T 


0266 


010] 


L8500 T 


0271 


0101 


8600 T 


0272 


010] 


8700 T 


0274 


010] 


8800 T 


0279 


010] 


18900 T 


0280 


0101 


9000 T 


0283 


0101 


9100 T 


0284 


0101 


9200 T 


0284 


0101 


9300 T 


0284 


0101 


.9350 C 


0286 


0101 


9400 P 


0287 


0101 


9500 T 


0290 


OIOJ 


9550 C 


0290 


0101 


9600 P 


0291 


0101 


9650 C 


0292 


0101 


9700 T 


0294 


0101 


9800 T 


0294 



WINDUP* IF CCLONG THEN CCCOM< LU'USERCOOEM )i % SET LUNG CARRIAGE 
IF QUICKUOQ THEN GO TO SCHED; X DONT PRINT GREETINGS 
WORKCO] l» date; 

TIMEOFOAY (WORK [n#T»«TIMECONVCLOGONTIME* TRUE)); 
TWXOUT(LL#WQRKtO]fiefl); 

lno(workc03ft#acbase*4]#ll); 
twx0ut{ll#w0rkc03*52#2); 
schedi if not restart then lln&clearcucw* ac*3 ); 
writeasteriskistrue; nostopi^false; 
filename i* o; 

DOING l» WANT l« O; 

SOURCEFILE Is OBjECTFlLfc l» O; 

lAM l» IF RESTART THEN ELSE VSETUPFILES; 

GO EXIT 

end case 7j % ,,,,.,,•,...,.,.,, , ,..« 

End all cases; 



EXITI 

END 



OF hithere; 



01019910 T 029a 

01019920 T 0298 

01020000 T 0299 

01Q20100 T 0301 

01020200 T 0303 

01020300 T 0305 

01020400 T 0308 

01020500 T 0309 

01020600 T 0313 

Olt20700 T 0317 

01020800 T 0319 

01020900 T 0320 

01021000 T 0322 

01021100 T 0325 

01021200 T 0325 

01121300 T 0329 
start of segment ********** 

33 IS 9 LQNG« NEXT SEG 

0102U00 T 0330 

01921500 T 0330 

32 IS 334 LONG» NEXT SEG 



33 
32 



%******i,***ii***********************ii***i,*******i,**% 
PROCEDURE BREAKCLCW#A); BOOLEAN LCW; ARRAY AtO]! 

UrftTM 



LAPEL t; 



BEGIN 



END 



START 



WRITEASTERISK |p TRUE; 

IF RCALLMCPMSG) m THEN LlNECLEAR( LOW* A t * 3 ) ELSE 

lAM 15 o; 

break; 



02000000 




0061 


02S00100 




0061 


02000200 




0061 


02000300 




0061 


02000350 




0061 


OF SEGMENT 


********** 


02000400 




0000 


02000500 




0002 


02000600 




0005 


02000700 




0007 



34 IS 



S LONG# NEXT SEG 



34 



x*************************************************x 

PROCEDURE WRUCLCW#A); BOOLEAN LCW; ARRAY ACOj; 

x*************************************************x 

BEGIN 
LABEL t; 

writeasterisk is true; 
initiatedwhilebusy !■ true^ 
breakorwrui«true;x wantiiiwaitformvlineclear; 

IF REALCALLMCPHSQ}«0 THEN IAMI«0 ELSE 
MATCH(RUN2>»«CANDE ") IAM|«0 ELSE 
WANTt»WAlTF0R|»VMCPM5G; 
END WRU; 



03000000 T 0061 

03000100 T 0061 

03000200 T 0061 

03000300 T 0061 

03000350 T 0061 

START OF SEGMENT ********** 

03000400 T 0000 

03000500 T 0002 

03000600 T 0004 

03000700 T 0006 

03000800 T 0009 

01000810 T 0012 

03100900 T 0016 

35 IS 17 LONQ# NEXT SEG 



35 



« i' 



m 



PRBCEOurE LlNECLCAR(tCM«A}J BOOLEAN LCMJ AHRAY ACO)J 
X**********************************************************************;i 

BEGIN! 



BEGIN 
LABEL 



exit; 



THEN 



MATCHCRUN2#"CAN0E 

m false; 

in 

t R 

Is 

IK 
19 

l» 



) GO EXITI 



IF Running 

BUSyuINE 

INITIATEOWHILEBUSY 

SAVEoWHItElNITBUSY 

restartneided 

allmcpmsg 
disconnecting 

RESTART 
SEQMQDE 

helptoggue 

oatacna8le0 

breakorwru 

INQUIRY !• false; continuebiti«false; 

SCWPREV »« PREVRCW |* LLWOROS; BASE |» SBASE; 

WANT l» WAITFOR I" WAlTINGSCW l» LLINFO l«» O; 

WHILE REAL<THING5T0D0) GjR 00 GEtSOMEtHINGtODO(LCW* AC * 3? ; 

CLEArCACS6ASE]«30}; t FOR REPLACIT 

IF Equated then enterespc-ll^'O/AC*]); % give back esp disk 

EQUATED l» false; 
MSGiTR la U; 

EXITI iami^o; 

END procedure l^NEClEAR; 



false; 

FALSE; 

false; 

false; 

false; 

false; 

false; 

o; 

false; 

false; 



04000000 
04000100 
04000200 
04000900 
04Q00400 
START OF SEGMENT 
04000410 
04000500 
04000600 
04000700 
04000800 
04000900 
04001000 
04001100 
04001200 
04001300 
04001400 
04001500 
04001600 
04601700 
04001800 
04001900 
04002000 
04002010 
04002020 
04002100 
04002200 
04002300 
36 IS 55 LONG* 



0061 
0061 
0061 
0061 
0061 
********* 

0000 
0003 
0005 
0006 
0010 
0012 
0014 
0017 
0019 
0021 
0024 
0026 
0028 
0033 
0036 
0039 
0045 
0046 
0049 
0092 
0033 
0054 
NEXT SEG 



36 



X**********************************************************************X 

PROCEDURE initializectrandbase; 

x**********************************************************************^ 

BEGIN 
STREAM PROCEDURE US^RSDATECLt OAT?; 

BEGIN 

Ol!»L^ 0SI«23LIT''USERS/CANDE FILE OAyED "; 

siiwoat; dsi»8chr; osi»lit"»"; 

END usersbate; 



05000000 T 0061 

05000100 T 0061 

05000200 T 0061 

05000300 T 0061 

05000310 T 0061 

START OF SEGMENT ****•**•** 

05000315 T 0000 

05000320 T 0000 

05900325 T 0003 

05000330 T 0004 



37 



STREAM PROCEDURE ERR (W); 
BCGiN 

Dllfw; DSIiSlLIT^USERS/CANDe 
END OF err; 



HAS MORE THAN I ROW"; 



X0521- 
X0521' 

Dsi-LiT***"; *052r 

X052r 



05000332 C 0004 

05000334 C 0004 

05000336 C 0005 

05000338 C 0010 



INTEGER i; 

REAL userfileheader; 



X0521- 



05000340 C 0010 
05000350 T 0010 



m 



CLEAR(CTRANOBASEt03#l5); % REMOVE 

CLEAK(WDRKC0}«59}J X ANY QARBAGE* 
MSGFILELOC I* EVENTS! 23 , C20 « 283 ; 
TANKFILE I* ABSCEVENTSC 33 ) ; 
USERFILEHEADER I" EV£NTSt23 , [51 153; 
SY5TEMt»CEVtNTSC2 3tt2l2 3)x(lOO); 
ROWINUSE »» 15; 

NOFiuEs t« false; 

USERSDATECU*EVENTSC43); TwXOUTC 0* IC 03 * 32* 1) ; 
DlSKWAnCl*WORKt*3»30#USERFILEHEADER); 
FOR X»»ll STEP I UNTU 29 DO 
IF WORK Cn GTH THEN 
BEGIN 
ERR CL); 

ii»o/o; 
end; 
userbasei^work 

IF EVeNTSt33 GTR 



TWXQUT (0*1 C03#32»l); 
» KILL CANDE 



ao3; 

THEN 



BEGIN 



X OLD TANKS EXIST, 



% ACCESS DATE 

X0521- 
X052I- 
X0521- 
X0521' 
*052l- 
*052l- 

X0521- 



ENo; 

END 



DISKWAITClfWQRKi;*3#30tTANKFlLE3; 
MOVE(l6#WORDS#WORKU0 3f CTRANOBASEC03)/ 
TANKS12E l» WORKC83; 
ROWlNgSE I" W0RKC63,CF; 
ROWCOUNT »• WORKC63.FF; 
N0TANK5 Is false; 

initializectrandbase; 



37 IS 



0500Q400 T 
058005QO T 
05000600 T 
05»00700 T 
05900800 T 
09000860 T 
05000900 T 
05001000 T 
05001010 T 
05001020 T 
05001025 C 
05001030 P 
05001035 C 
0I0010<(0 P 
01001045 C 
05001050 P 
09001055 C 
05001100 T 
09001200 T 
05001300 T 
05i01«00 T 
05001500 T 
05001600 T 
05001700 T 
05001750 T 
05001800 T 
05001900 T 
52 LONG* 



0010 
0012 
0013 
0015 
0016 
0017 
0019 
0020 
0022 
0025 
0027 
0029 
0030 
0030 
0033 
0034 

0036 
0037 
0036 
0039 
0041 

0043 
0044 
0046 
0047 
0049 
0049 
NEXT 5EG 



X********«t*****************************«**********************«********j 

PROCEDURE oiskchunk; 

X******<********************************A****«**************************)l 

begin 

xtraosk; 



REAL 
BOOLEAN 



tanknotpresent; 

if nofiles then % set up the file addresses, 

BEGIN 

tanknotpresent tm eventsc33 leo o; 
initialuectranobase; 

END ELSE TANKNOTPRESENT l» TRUE; 

IF CTRAN0BASECR0WINU5E3 NEQ EVENTSC13 THEN 
BEGIN X MUST REALLY BE A NEW CHUNK. 

ROWINUSE. C44I43 »■ ROWINUSE ♦ U 
IF CTRAND8ASECROWINUSE3 NEQ THEN 
BEGIN 

XTRAOSK t» CTRANDBASECR0WINUSE3; 
ROWCOUNT I* ROWCOUNT -i; 

end; 

ctranpbasecrowlnusts i- event5c13; 

ROWCOUNT t« ROWCOUNT ♦ U 

IF TANKNOTPRESENT THEN DISKWAIT ( I* W0RKC*3O0*TANKFlLE >; 

WQRKE03 f« ROWINUSE & ROWCOUNT C18t33tl5]j 

MOVE<16*WOROS»CTRANdBASEC03#WORKC103); 



START 



05002000 
05002100 
05902200 
05802300 
05002400 
OF SEGMENT 
05002500 
05002700 
05002800 
05002900 
05003000 
05003100 
05003200 
05003300 
05003400 
05003500 
05003600 
05003700 
05003800 
05903900 
09004000 
09004100 
05004200 
05904300 
09004400 



0061 
0061 
0061 
0061 
0061 
********* 

0000 
0000 
0000 
OOOl 
0002 
0003 
0004 
0005 
0006 
0008 
0009 
0010 
0011 
0012 
0012 
0013 
0015 
0017 
0019 



38 



• « 



m 



tanksizeirworkcs]; oiskwait(o*workc*]*3o*tankfiuej; 
end rememsering new chunks 

DOGSAROUNDIbOOGSARUUND or ROWCOUNT GTR I3i 
IF XTRAOSK GTR THEN % GIVE IT BACK. 

F0RGETgSER0ISK(XTRAOSK,TANKSIZE);X 
lAM t« Oj^ 
END OF NEW DISK CHUNK; 



05004500 




0021 


05004^00 




0024 


05004700 




0024 


05004800 




0026 


05104900 




0027 


05S0S000 




0028 


05005200 




0029 



38 IS 32 LONQ# NEXT SEQ 



PROCEDURE DISC0NNECT{LCW*A;; 800UEAN UCW; ARRAY ACOJi 



BEGIN 
BOOLEAN STBEftM PROCEDURE SPEC IAL(N# W#T ); 

BEGIN 



VALUE N»Ti 



END 



SI t« Loc t; si is SI*li 01 »• 
IF N 5C • DC THEN TALLY t« U 

SPECIAL ;s tally; 
special; 



w; 



06000000 
06000100 
06000200 
06000300 
06000400 
start of SEGMENT 

06000500 
06000600 

06000700 
06000800 
06000900 



006t 
0061 
0061 
0061 
0061 



********** 

T 0000 
T 0000 

T 0000 
T 0001 
T 0002 



39 



BEGIN 



end; 



IF NOT BOOLEAN (OOJNG) THEN 

WHILE RCTHINGSTODOJ GTR DO GETS0METHINGTQD0(LCW# At*3 j; 
DISCONNECTING l« 8(00IN6 l» I); 
BREAKQRWRU !• TRUE^ 



IF DOGLICENSE THEN X TANK FILE CLEAN UP IN PROGRESS 
BEGIN 
D0QH0USEELL3l«0i 

dogcatcherclcw#ac*)j; 
lAM i« voisconnect; 
ENo; 

IF REASON • VTEACHER THEN 

IF SPEClAL(3*WORKtl3*"BYE ) THEN 

DEVICE l» REALCNOT FALSEJ; 
IF REASON • VMCPM56 THEN 
BEGIN 

SREGInBASE't'LIBMSGCTR; 

MCPMSGCLCw#Ac*n; 
lAM i« vdisconnect; 
ENO mcpmsg; 

IF (WAITF0RIbREALCN0T(FAlSE))9 DEVICE 
AND REALCALLMcPMSGJsO ) 
OR SCHEOULINE 
THEN 
BEGIN 

HNECLEAR(LCWfAC*3); DISCONNECTING «• FALSE; 
IF USERCOOE NEQ THEN 
BEGIN 

IF NOT SCHEOULINE THEN 



06001000 

06001100 
06001200 

06001300 
06001400 
06001500 
06001510 
06001520 
06001530 
06001540 
06001550 
06001560 
06601600 
06001700 
06001800 
06601900 
06002000 
06002100 
06002200 
06602300 
06002400 
06002500 
06002550 
06002600 
06002650 
06902700 
06002800 
06902900 
06002910 
06002920 



0003 

0003 
0004 

0008 
0010 
0013 
0013 
0013 
0014 
0015 
0017 
0018 
0018 
0018 
0021 
0023 
0024 
0024 

0026 
0027 
0028 
0028 
0029 
0031 
0031 
0032 
0033 
0037 
0038 
0038 



BEGIN 

ACBASI;] IS X50i BYECUCW« AC *3 ) J % SCRATCH WORK FILES 
END BYEING OFF; 

|.0G0FFCUCW/A£*3); 
END LOGGING OFF; 

LCW»»FALSE; CLEAR(ACT8ASE3»S8ASE-TBASE-n; 

lAM !• Oi DISCONNECTED(LL)^ 
END IF DONE WITH THIS HN£i 

END disconnect; 



39 IS 



06002930 T 


0039 


06002940 T 


0040 


06002950 T 


0043 


06002960 T 


0043 


06002970 T 


0045 


06003000 T 


0045 


06003100 T 


0046 


06003200 T 


0049 


06003300 T 


0049 


51 LONG# 


NEXT SEG 



PROCEDURE INPUTOATA CLCW*A); 

!t************tlt****4'********4t***ii[r***************************************<( 

BOOLEAN LCW; ARRAY ACO] ; 
BEGIN 



LABEL Ti 



END 



WECANUSEDATA is 
NQOATAREQUESTEDls 
OATAOFFSETT »• 
DATAWORDS l« 
DATAOISKLOC i« 

NOOATAI«(DATAWORDS 
lAM »• WANT l»0; 
KLUDGE INPUTDATA; 



NO oogsaround; 
TRUE ; 
events tn; 

EVENTS [23; 
events C3] & HOWINUSE 
LEQ OR OATAOFFSETT 



£36144143; 
GEO 29); 



07000000 T 0061 

07000100 T 0061 

07000200 T 0061 

07000300 T O061 

07600400 T 0061 

07000450 T 0061 
START OF SEGMENT ********** 

07000500 T 0000 

07000600 T 0002 

07000700 T 0003 

07000800 T 0004 

07000900 T 0005 

07001000 T 0007 

0700U00 T OOU 

07001400 T OOU 

40 IS 13 LONG# NEXT SEG 



40 



X**********************************************************************} 07001500 T 0061 

PROCEDURE BUILDADATAEVENT; 07Q01600 T 0061 

X**********************************************************************x 07001700 T 0061 

BEGIN 07001800 T 0061 

DEFINE lNPUTLLBtlOl83«* INPUTCHAR*C 331 153## I NPUTQMARK«C I H 3#; 07001900 T 0061 

START OF SEGMENT ********** 

tABEL exit; 07002000 T 0000 

REAL count; 07002010 T 0000 

BOOLEAN STREIM PROCEDURE FLA6BlT(W); 07002100 T 0000 

BEGIN 07002200 T 0000 

SII«»Wi IF SB THEN TALLYl«i; FLAGBIT t "TALLY; 07002300 T 0000 

END FLAGBIT; 07002400 T OOOl 



41 



STREAM PROCEDURE INCOMPLETEMSGC WORK) ; 

BEGIN 0II»W0RK; DSI'«27LIT''Y0UR REQUEST IS INCOMPLETE,"; ENO; 



07002410 T 0002 
07002420 T 0002 



IF FLAGbITCTTYINPUTCOATAOfFSeTTJ) THEN 



07002500 T 0007 



i' 



«» REASON i« vdoqcatcher; 
t« LL i« oogsloose; 

THEN 00 exit; 



BEGIN LLI«0; REAS0NI«13; GO EXIT END; 

IF OQGSAROUNO THEN X BAD NEWS. 
BEGIN 

EVENTREASON 

EVENTLl 

IF IL QTR 
END OOGSAROUNO; 
BEGIN 

LI. I" (ERRSW ts TTYlNPUTCOATAOFFSETT]).INPUTLU; 

EVENTS[3]I» DATADISKLOC; 

EVENT5t23»» REASQNJ»( (WORK CO J l«ERR5W, INPUTCHAR ) + 7) . [40»5]; 

EVENTS[U»» OATAOFFSETTIK OATAOFFSETT + 1} 

MOVE (REASON* WORDS* TTYInPUTCDATAOFFSETT 3# WORKCU)! 

WORKADRS I* AODRES5{WORKtl3)J 

COUNT »» <W0RKC0]"U.C39I93; 

W0RKENDADRS»*(W0RKADRS-»-C0UNT,t'»0l5]>&C0UNTC30»45«33; 

N0DATAI»(0ATA0FFSETT I» OATAOFfSETT + REASON) GEO 29i 

IF (DATAWOROSI* OATAWORpS - REASON - U L5S I THEN 
NOOATA tm true; 

EVENT5C03,tl8ll53J» X 
(ERRSW & (REASON!' VINPUT"ERR5W , JNPUTQMARK) C 3» 41 17 ] ) 

,C3«15]; 

IF RtASON * VTEACHER AND CONTINUEBIT THEN % NO DISKREAD 
BEGIN INCOMPUETEMSG(WORK); TWXOUT(l.L* WORK t03#27# 1 ); 
LUI'O; REASON t« 13; END; X IF WAITING 

IF REASON-VTEACHER THEN 

IF SEfiMODE AND NOT DISCONNECTING THEN REASON I'VINPUT; 

IF LI gtr maxlines THEN BEGIN LLi«o; reasoni»i3; eno; 

END NO DOGS AROUND; 
EXITI END OF BUIlDING A DATA EVENT; 



0700260Q 
07802700 
07002800 
07002900 
07003000 
O7803J00 
07603200 
07003300 
07903400 
07003500 
07803600 
07803700 
07003800 
07003620 
07003840 
07003850 
07S03900 
07004000 
07004100 
07004200 
07004300 
07S04400 
07004410 
07004420 
07004430 
07004440 
07004450 
07804600 
07004900 
07005000 



41 IS 70 LONG, 



0009 
0012 
0012 
0012 
0015 
0019 
0020 
0020 
0020 
0022 
0023 
0026 
0030 
0032 
0034 
0036 
0039 
0042 

0044 
0046 
0047 
0050 
0051 
0053 
0057 
0056 
0059 
0063 
0066 
0066 
NEXT SE6 



PROCEDURE RESTARTIT(lCW*A); boolean LCw; ARRAY ACOj; 
Xaaaaaa^****************************************** ************* 

begin 

REAL T; 

LABEL BAD,FINDCHKPT,MAK£SuRE*CASE8,CASE9#Exn; 
BOOLEAN ST8EAM PROCEDURE F INDFLAQ (SEGMENT); 

BEGIN LOCAL SV; LABEL EXITi SllsSEGMENTi 

30(Svl«Si; IF SB THEN 

BEGIN tallyi'i; findflagistally; JUMP OUT TO exit; end; 
siusv; sitisifs); 

EXITI END STREAM PROCEDURE FINDFLAG; 



09800000 T 0061 

09000100 T 0061 

09000200 T 0061 

09000300 T 0061 

09800400 T 0061 
START OF SEGMENT *******< 

09000500 T 0000 

09000502 T 0000 

09000504 T 0000 

09000506 T 0000 

09000508 T 0001 

09800510 T 0002 

09000512 T 0003 



42 



STREAM PROCEDURE F|,AGmESSAGE(Wqrk#FIlnAm»USERCOOE,DISkADDRESS); 
VALUE FjlNAM#USERC00E*DI5KADDRESS; 
BEGIN 

dii'wQRk; dsj«i4lit"flag bitifile "; 

SII»lOC FILNaM; 2(Sn«si*i; Di>»»7CHR; DStwLIT"/" ); Dli*Ul-i; 



09000514 T 0005 

09000516 T 0005 

09000518 T 0005 

09000520 T 0005 

09000522 T 0007 



"; 



DSJ^l/UIT** AT DISK ADDRESS 

0SI-16UIT" FIUE OISCAROEOf"; 

END STREAM PROCEDURE FUAGMESSAGE; 



0SI»80EC; 



09900524 


T 


0009 


09000586 


T 


oou 


09000528 


T 


oou 



STREAM PROCEDURE QKCW); 
BEGIN 
01 I* w; 

DSl-12 LIT "WORKFILE UK."; 
END OKI 



09000600 T 0014 

09000700 T 0014 

09900800 T 0015 

09000900 T 0015 

09001000 T 0017 



STREAM PROCEDURE SPEC CWRK,SEQ*F IX ) i VA^UE SEQ*FIX; 

BEGIN 

0I«»WRK; 0S»»20 lit "input restored THRU "i 

FIXCDSI«7 LIT "FIX AT ")i 

SII*L0C StQ; FIXI»Dli DSJW8 DEC^ 

di'sfix; D3t»7 fill; oii'Fix; sijsfix; 

8(IF SC*" " THEN SII«SI + i ELSE DSUCHR); 
0SI»16 LIT " "; 

END stream; 



09001010 


T 


0017 


09001020 




0017 


09001030 




0018 


09001040 




0021 


09001050 




0023 


09001060 




0024 


09001070 




0025 


09001080 




0027 


09001090 




0029 



CASE 
BEGIN 
BEGIN 



DOING OF 



THEN 



NAME OF SCHEDULE FILE 



% CASE 

IF B0aLEAN(EVENTSCU,C2IU) 

BEGIN 

SCHEOULINE IS true; 

CHARGEl»EVENTSt33> 

USERCQDE l» EVENTSCI].C6I42]; 

SCHEONAME 19 EVENTSC2] . C6I 42] ; % 

DEVICE i» teletype; 

END 
ELSE DEVICE «« EVENTSC23; 

IF EVENTStl3.Cll2J»l THEN XSCHEOULE LUG UN (NOT RESTART) 

IAMI«VHELLO 
ELSE 

IF notanks then 

lAM l« VHELLO 

ELSE 
BEGIN 
FILESOK M false; BASE l« SBASE' 

ACBASE]l"EVENTStl3.C6l423; % SAVE USEHCOOE 
RESTART l» true; 
TEMP l» DOING l« i; 

WANT »» vhello; 
end; 
end case o; 

BEGIN X CASE 1 
COMMENT CHECX TIME 



GOT HIM LOGGED IN 
RESTRICTIONS (NOT CHECKED 



IN HITHERE ON RESTART); 



09001100 

09t01200 
09001300 
09001310 
09001320 
09001322 
09001323 
09001324 
09001325 
09001326 
09001328 
09001330 
09001340 
09001350 

09001360 
09001400 
09001500 
09001600 
09t01700 
09601800 
09f01900 
09002000 
09602100 
09602200 
09602300 
09602400 
09602500 
09002510 



T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0029 

0030 
0030 
0030 
0031 
0032 
0034 
0036 
0038 
0041 
0042 
0042 
0044 
0046 
0047 
0047 
0048 
0049 
0050 
0050 
0053 
0056 
0058 
0059 
0060 
0060 
0061 
0061 



• % 



# * 



FALSE).C2-!H2'»J)) 
THEN ELSE 



EQL 



IF R(B(TlMtLlMlTS,C24l24]) EQV BCRCNOT 
R(NOT FALSE) OR T JMELIMITS. t2<»»243 EQL 
TIMEReSTRICTBIT IB REAL(TRUE)i 
RESTART l« false; 
IF USERCODE NEQ ACBASE] THEN 
BEQIN 

lAM »• VSETUPFILESJ 
DOING Im TEMP I* O; 
GO EXIT 

end; 

if scheduline then 
xtempqhary until hi know what to do 
g0errc"p*l*0*p''#40)i 

ACTBASE+iej IS TEN8; 

T M MAKEFNC"1P"»LL); 

FIND(LL&IAMC33MII7]^0*T#USERC0DE*USERC0DE); 

DOING l« 2; 

WAiTpOR t» iam; 

END CASE i; 
BEGIN % CASE 2 

IF EVENTStn NEQ 7 THEN 
BEGIN 
BAOI 

FILENAME !■» DOING I* WAITFOR »« O; 
IAM Is VSETUPFILES; 
GO EXIT 

End; 

acbase3 l» (wrktbla0ri*eventst43)-i; % ador qf first rec 

acbase+u im 0; 
findchkpti 

LLOIsKREaD I« AC8ASE3 + INC( AtBASE+n ); 

TEMP l» 2; 

DOING l« 3; 

MANT !>• VSISKREAOJ 
END CASE Zi 
BEGIN X CASE 3 

IF FINDFLAGCWORK) THEN 

BEGIN 

F(,AGMESSAGECWaRK*MAKEFN("lP''#LL)#USERCODE#(A[BASE3*ACBA5E+n)); 

TwX0UT(O#W0RKtO3»7O*U; 

Go TO bad; 
End; 

ACBASE+2] !• 0; 
IF W0RKCO3 a TENS THEN 
BEGIN 

GOODOBJ t« B00LEAN(W0RKC7],C12in}; 

FILENAME »• WORKC123; 

INCREMENT In WORKC143; 

SEQlAST f« W0RKU53J 

SEQiN Xm W0RKCU3J 

LASTRECORO |w W0RKU73 * if % RECORD COUNT 

TABlEINFO «• WORKCl83i 

FILETYPE «• WORKC203; 

SQURCEFILE I" WQRKt213l 

go makesurej 
end; 

IF W0RKCie3 NEQ TENS THEN 



09002^11 

09002512 
09002513 
09002600 
09002700 
09002800 
09002900 
09003000 
09003100 
09003200 
09003210 
09003220 
09003230 
09Q03300 
09003400 
09003500 

09003600 
09003700 
09003800 
09003900 
09004000 
09904100 
09004200 
09004300 
09004400 
09004500 
09004600 
09004700 
09004800 
09004900 
09005000 
09005100 
09005200 
09005300 
09005400 
09*05500 
09005510 
09005515 
09005520 

09005525 
09005530 
09005535 
09605600 
09005700 
09605800 
09005610 
09005900 
09006000 
09006100 
09006200 
09006250 
09006300 
09006400 
09006500 
09006600 
09006700 
09006800 



0061 
0063 
0066 
0069 
0071 
0072 

0073 
0074 
0075 
0075 
0075 
0076 
0076 
0083 
0084 
0086 
0090 
0090 
0091 
0092 
0092 
0093 
0093 
0094 
0096 
0097 
0097 
0099 
0102 
0103 
0104 
0108 
0109 
0110 
Olll 
0111 
Olll 
0113 
0113 

0118 
0119 
0120 
0120 
0122 
0123 
0123 
0126 
0128 
0129 
0131 
0132 
0134 
0136 
0137 
0139 
0141 
0141 



IF WORKC203 NEQ TENS THEN 
IF ACBASE*13 GtQ TBLSZ THEN GO BAD 
ELSE 
BEGIN 

M0VEClB*waR05*WQRKC20 3#ACTBA5En; 
Go FINOCHKPT 
END 

ELSE 
BEGIN 

ACbASE«2] t» 20j 

MOvE(lOfWORDS#lfXORKtl03*AtTBASen; 
GOOOOBJ »» B00l,EAN(W0RKC27]»C12lU)i 
END 

ELSE 
BEGIN 
MOVE(lO#waROS*WORK[03*A[TBASE3); 
AC8aSE*23 IB lOJ 

QOOOOBJ im BOOLEAN(WORKC173.U2lU}J 
FILENAME In WORKC223i 
INCREMENT Is WORKC2«3^ 
SEQLAST l» WORKt253; 
SEQIN I* W0RKC26]; 

tASTRECORD !■ WORKt273 ♦ i; X RECORD COUNT 
TABlEINFO M WQRKt283; 
ENDJ 
IIDISKREAO I* AttiASE] * iNC (AEBASE + U ) J 
TEMP l« 3; 
DOING I* 4; 
WANT im VOISKREAOi 
END CASE 3; 
BEGIN X CASE 4 

IF ACBASE+23 m 20 THEN 
BEGIN 

FILENAME M WORKC23; 
INCREMENT 15 W0RKC43i 
SEQLAST la WORKt53J 
SEQiN l« W0RKC6); 

LASTRECORD l» WORKt?} ♦ l; X RECORD COUNT 
TABLEINFfl l« WORKCBJf 
FILETYPE «• WORKCIO3; 
SOURCEFILE !• WORKUI3; 
END ELSE 
BEGIN 

FJLeTYPe li WORK t03i 
SOURCEFILE I" WORKClJJ 
ENDJ 

mak€surei 
qbjectfile »• 0; 

FiNOtLLilAMt 33141 173 *0*SoURCEFILE*USERCO0E*USERC0D£)i 

OOINq la Sj 

WAITfOR I» lAMj 
END CASE 4j 
BEGIN % CASE ^ 

IF EvENTSCn NEQ 7 THEN GO BAO; 

AtBAsEJ !■ EVENTSC33i X SOURCEFjLE EOFPTR 

T M MAKEFNCIT-#LL); 

FIND<LL4IAMt33l4ll73#O#T#USERCO0E*USERC0OE); 



09606900 

09007000 
09607100 

09007200 

09007300 

09607400 

09007500 

09007600 

09007700 

09607800 

09007900 

09007910 

09008000 

09008100 

09008200 

09608300 

09008400 

09008410 

09006500 

09606600 

09008700 

09008800 

09008830 

09008900 

09609000 

09609100 

09009200 

09009300 

09009400 

09609900 

09009600 

09009700 

09009600 

09009900 

09010000 

09610100 

09010200 

09010850 

09610300 

09010400 

09010500 

09010600 

09010700 

09010800 

09010900 

09011000 

09011100 
09011200 
09011300 
09011400 
09011500 
09011600 
09011700 
09011800 
09011850 
09611900 
09612000 



0142 

0143 
0145 
0145 
0146 
0148 
0148 
0150 
0150 
0150 
0152 
0154 
0157 
0157 
0157 

0158 
0160 
0162 
0165 
0166 
0168 
0169 
0171 
0173 
0174 
0174 
0179 
0180 
0180 
0181 
0182 
0182 
0183 
0184 
0165 
0187 
0188 
0190 
0192 
0193 
0195 
0196 
0196 
0197 
0198 
0200 

0200 
0200 
0201 
0205 
0206 
0206 
0807 
0207 
0208 

0210 
0211 



• * 



» * 



» 



GO bad; 

% not data fhe 
% sourcefile: not empty 



X ADDRESS OF •♦IT" FILE 



waitfOr i» jam; 

TEMP la Xi 

DOING U 6; 
END CASE 5i 
BEGIM % CASE 6 

IF EVENTStU NEQ 7 THEN 

IF FIUETYPE NEQ 8 THEN 

IF acbase] geq Q then 

BEGIN 
LLDISKREAO l» EVENTSta]; 

WANT m VDISKREADJ 

DOING «» Ti 

GO tO exit; 

end; 

GO To cases; 
end case 6; 

begin % CASE 7 
IF W0RKC13*TEN8 THEN 

BEGIN 

acbase] i« cqncisebit; 
concisebit i* u 
woRKCQ] »» o; 

WORKtn l» CIU+5YSTEM) & U8Ja7M3; 
WOBKtZl I" W0RKt4] »w ERRSW »• USERCOOE; 
W0flKC33 t« ACBASE+U l« SQURCEFItE; 

acbase+23 »» filename; 

RUNi I" "LOAD "; 
RUW2 »» "CANDE "; 

WANT i» vdispatch; 
diskwritecespd; 
litoutcwait* "'Nocrlf); 

SOURCEFILE I" FILENAME tm O; 
TEMP l» 3; 
DOING l« 8; 
END ELSE GO CASE8; 
END CASE 7; 
BEGIN X CASE 8; 
CONCISEBIT f* ACBASEJ; 
SOUBcEFILE »■ ACBASE*U; 
FILENAME I- AtBASE+23; 
CASE6I 

IF QOODOBJ THEN 
BEGIN 

riNDaL&IAMC33Ull7 3#0*S0URCEFlLE.C6l36]>U5ERC0Oe»USERC00e); 
DOING «• 9; WAITFOR l» IAm; 

End else go to case9; 

END CASE 8; 

BEGIN % CASE 9 

IF EVENTSCn»7 THEN OBJECTFILEUSOURCEf iLEt C6I 363 ELSE Q0000BJ»»FALSE; 

CASE91 

okcwqrk); 

TWXOuT(LL'WORK[03#12M); 
XFTPCOUNT NEfl THEN 
BEGIN X TELL USER LINE NUMBERt 

t«*tpentry; 

TIsIF AtT]fTENe THEN ACT-n ELSE ACT]; 
SPECCW0RKfT,C2l»27]fREAL(T,Cn23 EOL 3J); 



090J 


12100 T 


099] 


12U0 T 


090] 


L2120 T 


0903 


12130 T 


090] 


12H0 T 


0901 


12150 T 


090] 


12160 T 


0901 


L2170 T 


090] 


12180 T 


090] 


L2190 T 


090] 


L2200 T 


090] 


L2210 T 


090] 


L2215 T 


090] 


12220 T 


096] 


L222I T 


090] 


12230 T 


090] 


122«0 T 


090] 


12250 T 


090] 


12260 T 


090] 


12270 T 


OfO] 


12280 T 


0901 


12290 T 


090. 


12300 T 


090] 


12310 T 


090 


12320 T 


090] 


12330 T 


090] 


12340 T 


090] 


12350 T 


090] 


12360 T 


090] 


12370 T 


090] 


12380 T 


0901 


12390 T 


090] 


12400 T 


090< 


12410 T 


099] 


12420 T 


090] 


12430 T 


0901 


12440 T 


090] 


12450 T 


090] 


12460 T 


090] 


L2470 T 


090] 


12480 T 


090] 


12510 T 


090] 


12520 T 


090] 


12530 T 


090] 


12540 T 


090] 


12550 T 


090] 


12560 T 


099] 


12570 T 


091; 


12580 T 


090] 


L2590 T 


090] 


L2600 T 


090 


12700 T 


090] 


L2710 T 


090] 


12720 T 


090] 


12730 T 


090] 


12740 T 


090] 


L2750 T 



0215 
0216 
0217 
0217 
0218 
0218 
0219 
0220 

0222 
0222 

0224 
0225 
0225 
0226 
0226 
0226 
0227 
0227 
0228 
02.26 
0230 
0233 
0234 
0237 
0240 
0243 
0245 

0246 
0247 

0248 
0252 
0253 
0255 
0256 
0256 
0256 
0257 
0257 
0260 
0262 
0264 
0264 
0264 
0265 
0269 
0271 
0271 

0271 
0271 

0282 
0284 
0285 
0286 
0288 
0288 
0290 
0294 



TWx0uT(Ul,*W0RKC0]*36,2); 
END TELLING LINE NUMBER; 
LINECLEAR(LCW'AC*]); 
IF SOURCEFILE » FILENAME THEN 
BEGIN 

T l» MAKEFNC^lS^fLLJ; 
MAKeFILECLL&13C33UII73M*T#USERC00E»FILETYPE*' 

end; 

FILESOK I* true; 
END CASE 91 
END ALL cases; 



'2); 



EXITI 

END 



restartit; 



09012760 
09012770 
09012800 
09012900 
09013000 
09013100 
09013200 
09013300 
09013400 
09013500 
09013600 
START OF segment 

*3 is U long 
09913700 
09613800 

42 IS 316 LONG 



T 0297 




T 0299 




T 0299 




T 0300 




T 0302 




T 0302 




T 0304 




T 0308 




T 0308 




T 0310 




T 0310 




******#*•* 


43 


» NEXT SEQ 


42 


T 0312 




T 0312 




, NEXT 5EQ 


8 



tr********************************2 



PROCEDURE MCPMSG (LCW#A); BOOLEAN uCw; ARRAY ACO]* 
X********************iit*********«***************************************X 

BEGIN 

LABEL SETT»EXIT; 

REAL T; 

STREAM RRBCEOURE MAKEBQjmSGCW'N}; VALUE N; 



Begin 

Oll»W; OSl«ll LIT 
N(DI«*0I-10; OSlalO LIT 

End makebojmsg; 



" running, "; 
"compilingi"); 



14000000 T 0061 

14901000 T 0061 

14002000 T 0061 

14003000 T 0061 

14004000 T 0061 
START OF SEGMENT *******t 

14005000 T 0000 

14006000 T 0000 

14007000 T 0000 

14008000 T 0000 

14009000 T 0000 

14010000 T 0002 

14011000 T 0005 



44 



STREAM PROCEDURE SQUASHCA*C); VALUE C; 
BEGIN LABEL E#L; LOCAL TOG; 

5ii«a; oii»a; tallyi*i; tog««tally; tallyi»o; 
2(36cif sc « " " then 

LI BEGIN sn»si*i; 

IF SO • " " THEN GO TO L; 

sit»si-i; 
end; 
If scsQ then 

BEGIN 

togcsii»si*19); togmtally; 
end; 

If SC • LEFTARROW THEN JUMP OUT 2 TO E; 
DSioCHR}); 
E« 2CDSIf36LIT'' "); 

eno sqoash; 



14012000 
14013000 
14014000 
14015000 
14016O0O 
14017000 

uoieooo 

14019000 
14020000 
14021000 
14022000 
14923000 
14024000 
14025000 
14026000 
14027000 
14026000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0005 
0005 
0005 
0006 
0007 
0008 
0009 
0010 
0010 
0010 
0011 
0011 
0013 
0013 
0014 
0015 
0021 



m 1 



# t 



stream procedure examinec work*li; 
Begin local t; label lwexit; 
si»»work; oii»l; oii«oi+8; 

6( X 6 WORDS MAXIMUM IN OUTPUT ARRAY L 
Ll» IF SCm" " THEN 
BEGIN 

SIt«Sl+i; 60 TO Li; 
ENDi 
SCuLEFTARRQW THEN JUMP OUT TO EXIT; 

SC«ALPHA THEN 

BEGIN 

OSl-LIT^O"; DSl«CHRi 

6(IF SC»ALPHA THEN DSI«CHR ELSE OSIbLIT" -)i 



IF 

If 



sii««si + i Else jump outjj 



EXIT! 



20<IF SC»AtPHA THEN 
TALLYliiTALLY*li 

END 
ELSE 

BEGIN 

sn»si*i; GO TO m 

END)' 



oii*Lj Totally; sii«loc t; osi»wds; 

End STREAM PROCEDURE EXAMINE; 



U029000 




0021 


14030000 




0021 


U931000 




0021 


14032000 




0022 


14933000 




0022 


14034000 




0023 


14Q39000 




0023 


14036000 




0023 


14937000 




0024 


14038000 




0024 


14039000 




0025 


14040000 




0026 


14041000 




0026 


14042000 




0027 


14043000 




0029 


14044000 




0032 


14045000 




0032 


14046000 




0032 


14047000 




0032 


14048000 




0032 


14049000 




0033 


14050000 




0033 


14951000 




0033 


14052000 




0035 



STREAM PROCEDURE ERRORMESSAGE(WORK); 
BEGIN 
DIlfWQRK; 
0Sl«47LlT''SYSTEM ERRQRHaSK WAS OISCONT InUEO-PLEASE WAIT""; 

end; 



14052100 
14952200 
14052300 
14052400 
14052500 
14952600 



0035 
0035 
0035 
0036 
0036 
0042 



STREAM PROCEDURE LQAOCODE (PLACE); 

BEGIN 

OltffPLlCE; Dll"0I^2; 

DSI«6 LIT " PST "; 0II»DI*26; 

0S'«6 LIT " lOT* ♦♦; 

END OF LQAOCOOE; 



»0519- 


14052610 


C 


0042 


»0519- 


14052620 


C 


0042 


X0519- 


14052630 


C 


0043 


»05l9- 


14052640 


C 


0043 


X0519- 


14052650 


C 


0044 


*0519" 


14952660 


C 


0045 



IF NOT eoOLEANCOOlNG) THEN % FIRST LIBRARY MAINTENANCE CALL 
BEGIN 
SREGI«BASEtLiaMSGCTRoACBASE3; 

DOING i» i; 
End; 



14052700 




0046 


14053000 




0046 


14054000 




0046 


14055000 




0046 


14056000 




0046 


14057000 




0047 


14058000 




0049 


14059000 




0050 


14960000 




0050 



% EVENTStn m Q FOR EOj SYNTAX ERRORSt 

% I FOR EOJ O.K, 

X 2 FOR EOJ DS-EDf 

X 3 FOR OS-ED MESSAGE! 

X A FOR BQJ, 

X 5 FOR UIBMTNCE IGNORED. 

X 6 FOR UBMTNCE HEMOVED, 

X 7 FOR UIBMTNCE CHANGED, 

X 8 FOR SECURED FILE. 

X 9 FOR 2IP«ERR0Rt 

X 10 FOR NOT ON DISK. 

X U FOR NOT OBJECT CODE FILE. 

IF EVENTSCl] » 4 THEN X BQJ EVENT 
BEGIN 
If BOJMSG THEN X INDICATE ACTUAL BOJ 

BEGIN 

MAKEBOJMSGC WORK [03* COMPILING); 

TWX0UTCLL*W0RKC03»ll*l)' 

bojmsgisfalse; 
end bojmsgj 

IF CONCISE THEN MATCHCRUNg^-C ANDE «) ELSE 
BEGIN 

lit0ut(»-b0j- "^nocrlfj; litout ( run1#crlf ); 
end; 

match<«uni*"paper ") MATCHCRUNS'^CANOE ") 
BEGIN 
READTaPECLL&13C33I4U73'8»0*USeRC0DE); 

ENOi 
END BOJ ELSE 

IF EVENTSC13 6EQ 5 AND EVENTStl^ LEO 7 THEN X LIBRAKY MAjNT, 
BEGIN 
IF LIBMTNCE THEN 

BEGIN 

ACSREG«LIBMSGCTR3UEVENTSCIF EVENT5Cn»5 THEN 4 ELSE 1]; 

IF LIBMSQCTRI»LIBMSGCTR-1 LEQ THEN lAM U 0* 

END ELSE lAM l» Qi 
END ELSE 

IF EvENTSCn s 3 THEN X OS-ED MESSAGE 
BEGIN 

TwX0UT(LL*WORKCO3*O#U; X CR/tF BEFORE MSG 
SQUASH (WORKCOJ*"!"); 

If RUNNING AND NOT B00LEAN(HELPT0G6LE ) AND NOT SCHEOULlNE THEN 
BEGIN X TRY RUNNING "HELP" PROGRAM 

EXAMlNECWORK4,L3i 

IF <COMPARCLtn#"EOF " ) OR COMPAR(Lt 13' "PAR ")) 

AND 

(C0MPARCRUN2#"CAN0E ") OR C0MPAR(RUN2#"DI5K ")) 
AND 

LC03 GEO 5 THEN 
BEGIN 
SETTI W0RKC03I*LCU; X MESSAGE TYPE 
WORKC13MLC43; X MFID 
WORKC23»iLC53i X FID 
NORKC33l«RUNU 



14061000 
14062000 
14Q63000 

14064000 
1406S000 
14066000 
14967000 
14966000 
14069000 
14070000 
14071000 
14072000 
14073000 
14074000 
14075000 
14076000 
14077000 
14078000 
14079000 
14Q80000 
14081000 
14082000 
14083000 
14084000 
1408S000 
14086000 
14087000 
14088000 

14089000 
14090000 
14091000 
14092000 
14Q93000 
14094000 
1499S000 
14196000 
14897000 
14998000 
14099000 
14100000 
14101000 
14102000 
14103000 
14104000 
1410S000 
14106000 
14107000 
14108000 
14109000 
14110000 
14113000 
14114000 
1411^000 
14116000 
14117000 
14118000 
14119000 



OOSO 
0050 
0050 

0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0051 
0051 
0052 
0052 
0054 
0056 
0058 
0058 
0062 

0064 
0066 
0066 
0068 
0070 

0073 
0073 
0073 
0073 
0080 
0080 
0081 
0082 
0086 
0090 
0091 
0091 
0091 
0093 
0093 

0095 
0096 
0100 
0100 
0102 

0105 
0106 
0109 
Olio 
Olll 
0112 
0113 
0115 
0116 



'ii I 



. 4 



Jl * 



# i 



« • 



W0RKC4]t"RUN2; 

ll0RKt53MLl.&FItETYPEC3«l42t6]; 
IF C0MPAR(Ut4]*S0URC£FIl£) THEN 
IF COMPARCl.C53*USERCODE) THEN 

WQRKC53,i;iU3l*li X WQRKFILE TQGGUE 
WQRKC6]I«USERCQDEJ 
IKORKt73l»»TPCOUNT; 

workcb3i«sourcefile; 

BOVE(l6#W0R05*CTRAN0BASE#H0RKClO3H 

OISKWRlTECESPl); 

HELPTQGGLEI»li 

NORETRYMO; 

IF BQOIEAN(UPOATEBIT) THEN X UPDATING wQRKFlLE 

BEGIN 

TI-MAKEFNCWIP^^UL); 

IF COMPAR(WORKtl3»T3 OR W0RKtl3»0 THEN NORETRY|»i; 

ENOi 
tNO X IF COMil MESSAGE 
EUSI X CHECK TERMINALMESSAGEA ERRORS 



IF 



"J 



OR 
OR 
AND 



CQMPAH(UC23#''ERH 



))) 



CC0MPAR(Utl3*"FI,AG 

C0MPAR(lCi3*"INVALO 
CC0MPAR(LC13*"I0 

AND 

(C0MPARCRUN2, "CANOE "J OR C0MpARcRUN2» "DISK ")) AND 

SOURCEFILE NEQ THEN 

BEGIN 

UC43I»I.C53»»Q; QO TO SETT; 

END ELSE TWX0UT(ll.»W0RKt03#72#l); 

END ELSE TWX0UTCtl#W0RKC03*72*Ui 
END ELSE 

IF EVENTStl3 GEO 8 ThEN X MlSC, MESSAGES 
BEGIN 
ERR5W l» RUNi; 

MSGPTri»EVENT5C13*16; 

AtLMCPHSG l» false; 

MeLPTOSGLE*" RUNl l» RUN2 1* lAM |» o; 

N0RETRYt»0; 

If not breakorwru then iami»verror; 

GO to exit; 

End; 

IF EvENTStl3 LEO 2 THEN X EOJ FOR THIS GUY, 
BEGIN 

ETIME I" ETIME 
lOTOT l» lOTOT 
ERRSW4«RUN4) 
COMMONCELL »» HORKC83; 
IF COMPARCRUNl#«HELP 

BEGIN 

HELPTOQGLE « • O; 

IF 800LEANCUPDATEBIT) AND EVENT5ti3 » 1 THEN % WORKFILE UPDATE 
BEGIN 

LINECLEAR(LCW#AC*3)* 

TWX0UTCLL»LL*0*2); 

IF bqoleancnoretRy) then CAnCELCKPTCA[*3) 

ELSE LITOUTC-OK "#CRLF); 



EVENTSC33fCUt323; 
EVENTSC43ftl6l323; 



") AND C0MPAR(RUN2*"0ISK ••) THEN 



lftl20000 
14121000 
14122000 
14123000 
14124000 
14125000 
14126000 
14127000 
14128000 
14129000 
14130000 
14131000 
14132000 

14133000 
14134000 
14135000 
14136000 
14137000 
14138000 
14139000 
14139010 
14139020 
14140000 
14141000 
1414U00 
14142000 
14143000 
14144000 
14143000 
14146000 
14147000 
14146000 
14149000 
14150000 

14151000 
14152000 
14153000 
141S4000 
14155000 
14156000 
14157000 
14158000 
14159000 
14160000 
14161000 
14162000 
14163000 
14164000 
14165000 
14166000 
14167000 
14166000 
14169000 
14170000 
14171000 
14172000 
14173000 



0118 

0119 

0122 

0124 

0126 

0129 

0131 

0133 

0134 

0136 

0140 

0142 

0145 

0146 

0146 

0148 

0154 

0154 

0154 

0154 

0160 

0162 

0166 

0166 

0170 

0172 

0172 

0162 

0184 

0166 

0166 

0166 

0188 

0188 

0189 

0191 

0193 

0198 

0201 

0203 

0204 

0204 

0204 

0205 

0205 

0208 

0211 

0212 

0213 

0217 

0217 

0220 

0222 

0223 

0224 

0226 

0228 



IF 



NQRETRYlsO; 

IF BaOl£AN(CUMMONCEUL,C3in> TH&N 
SOURCEFILE:iaMAKEFN("lS"*l.l); 

writeasteriski»true; 

GO TO EXlTi 

ENDi X IF UPDATE WAS IN PROGRESS 
NORETRYIwO; 

IF BOdlEAN(C0MMONC£Ulft3in) THEN SOURCEFILE I "MAKEFNt "IS^^LU); 
ENDi X IF EOJ FOR HELP PROGRAM 
IF EVENTSCU NEfl I AND NOT BREAKORWRU THEN X BAD 
BEGIN 

MS6PTRI*IF COMPILING THEN l2 EL^E 28; 
IF OOGLICENSE THEN OOGCATCHERCuCW, AC*3 ); 
SCWPREV»wPREVRCW|»tUWORDS; 

initiatedwhiuebusyi-fause; 
end x bad news 

ElSE 

BEGIN 
M5q»TRI»0^ 

IF ic8Ase*u iw woRKusJ NEa THEN * chain request 

BEGIN 

WANT 1= vdispatch; 

IF ACBAbE*U.t42l6] NgQ " " THEN GQERRC At BASE*l 3* 42 ) * 
ilCBASE«^Ul»ACBASE«nfC6|36]; 

ACBA$E«23 t«* WORKCUJ; 

END 

END* 
TWX0UT(UL,»UL*0*2-C0NCISEBIT); 

If CEOgMSQ OR EVENTStlJ NE« I) AND NOT BOOLEAN(HEi,PTOGQUE} THEN 
BEGIN 

WRITEASTERI5K I* FALSER 

WOrKCOJI'CJF EVENTSC13*! THEN "END »♦ EUSE "ERR "j; 

MATCHCRUN2*''CANDE •♦ ) WORKCUURUNl ELSE 

BEGIN 
W0RKCUI« 

IF COMPILING THEN "COMPILE" ELSE 
IF RUNi,Cl2l63»l THEN FILENAME ELSE 
RUNU 
END MATCH CANDE; 
TIMEUSE0(W0RKC2]»TIMEC0NV(EVENTSC3].C16I32]#FALSE))# 
TIMEUSED <WORK UJ^TIMEGONV (EVENTS [43 , C 1$I323»FALSE) j; X0919' 
LOADCOOE (WORK C53)J X09I9" 

BLANKCWORKCn); SQUASH(W0RKC03#"'"'); BLANK (WORK [03 ) ; 
TWXBUT (LUfWORK [03#72#2)^ X0519' 

if scheduline then 
if not nostop then 

if eventscn neq i then 

schederror; x terminate schedule 

END IF EOgMSG; 
lAM !• OJ 

End EOJ stuff; 

WANT a vdispatch THEN X CHAIN REQUEST 

Begin 

RUNl I* A[8ASE+13; 
«UN2 l« A[BASE'«'23; 

end else 



H17«000 
H175000 
14176000 
14177000 
14176000 
U179000 
14160000 
14181000 
14162000 
14163000 
14184000 
14185000 
14166000 
14167000 
14188000 
14169000 
14190000 
14191000 
14192000 
14193000 
14194000 
1419S000 
14196000 
14197000 
14198000 

14199000 
14100000 
14101000 

14202000 
14103000 
14204000 
14|OSOOO 
14206000 
14807000 
14208000 
14109000 
14210000 

14211000 
14212000 
14213000 
14213100 
14213200 
14214000 
1421»000 
14216000 
14217000 

14218000 
14219000 
14220000 
14221000 
14122000 
14223000 
14224000 
1422S000 
14226000 
14127000 
14226000 



0233 
0235 
0236 
0239 
0241 
0243 
0243 
0243 
0249 
0249 
0251 
0251 
0255 
0256 
0260 
0262 
0262 
0262 
0263 
0264 
0266 
0267 
0268 
0275 
0278 

0280 
0280 
0280 

0283 
0267 
0287 
0289 
0293 

0297 
0301 
0301 
0303 
0306 
0307 
0307 
0310 
0313 
0314 
0318 
0319 
0320 
0322 
0323 

0334 
0334 
0334 
0334 
0334 
0335 
0336 
0338 
0340 



• I 



PGM, MAY REQUIRE TWX JNPUTS 



IF WaITFOR»«IAM m Q THEN % AUL MESSAGES ARE IN 

Begin 

ALUMCPMSG »• tl<LIBMSGCTR«»«UNll«RuN2l«0); 
IF BOOUEAN(HEIPTOGQUE) THEN X TRY AND RECOVER 
IF MOT 5CHE0UIINE THEN » 
BEGIN 

RUNll«"HELP "i 
RUN2I«"0ISK »•; 

want»»voispatch; 

COMMONVAUUE l» ESPU 

ERR0RMESSAQE(W0RK)J TWXOt)T<lL*WORKC0 3»47*CRLF)i 

ind; 
End if Alt, done; 

EXITI 

END OF mcpmsg; 
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14329000 




0340 


U230Q00 




0340 


H231000 




0341 


14832000 




0342 


14133000 




0347 


14234000 




0348 


14135000 




0350 


14236000 




0350 


14237000 




0351 


14238000 




0353 


14139000 




0353 


14240000 




035A 


14241000 




0357 


14142000 




0357 


14243000 




0357 


14244000 




0358 


363 LONC 




NEXT SEG 



X*********************«***4r«******************************************** 

PROCEDURE COBUITCA)* ARRAY AC03; 

BEGIN 

STREAM PROCEDURE NODlSKMESS(WORK# AMOUNT )/ VALUE AMOUNT/ 

BEGIN LDCAl. A,B; 
LABCU Lf 

Di »■ uoc a; si »■ Loc amount; ds »» a oecj 
Dit-woRKi sn«*tac ai 

TAtUY l» 8i 
LI 8(IF SC*"©" THEN BEGIN SI l» SI+lJ TALLY I" TALLY+63 END 
ELSE JUMP OUT); 

B t« tally; ds i» b chr; 

OSI-SSLIT" SEGMENTS OF DISK ARE NOT AVAILABLE"; 
DSt»8LlT- "; 
END; 



15000000 




0061 


15001000 




0061 


15602000 




0061 


15003000 




0061 


15004000 




0061 


START OF SEGMENT 


******* 


15005000 




0000 


15005500 




0000 


15006000 




0000 


15007000 




0000 


15008000 




0001 


15009000 




OOOl 


15010000 




0003 


15011000 




0005 


15012000 




0005 


15112100 




0010 


15013000 




0011 



4b 



IF Ll.»0 THEN 

BEGIN WENEEOTOCQQLIT I* TRUE; 

INCCNUOCOUNT); 
END ELSE 
BEGIN N0DlSKME5SCW0RK,EVENT5C23i; 

twx0ut<ll*w0rkc0]*43mj; 
prevmsg i« msgpointer; 

MSoPOINTER »« 47; 
END; 
lAM t» WANT l» WAITFOR I* O; 



end; 
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15014000 




0012 


15615000 




0012 


15016000 




0019 


15017000 




0016 


15618000 




0016 


15019000 




0018 


15620000 




0020 


15021000 




0022 


15622000 




0023 


15S23000 




0023 


15024000 




0025 


26 LONG« 


NEXT SEG 



m 



PROCEDURE MCPOK(A); ARRAY AfO]* 

BEGIN 

STREAM PROCEDURE OKMESSCWORK )J 

BEGIN 01 lo work; 

DSl»4lUlT*«0ISK SPACE FOUND, YOU ARE RUNNING AGAIN "j 
END; 



16000000 T 0061 

16001000 T 0061 

16002000 T 0061 

16003000 T 0061 

16004000 T 0061 

START QF SEGMENT *♦*«♦**♦** 

16005000 T 0000 

16006000 T 0000 

16007000 T 0005 



06 



IF UL*0 THEN 

IF (DECR(NUDCOUNT))«0 THEN 

BEGIN TIMETOOKHNES \m TRUE^ 

WENEEOTOCQQUIT Is FAUSEi 
END EUSE 

IF NUOCOUNT tSS THEN NUDCOUNT t» ELSE EUSE 
BEGIN OKMESSCWORK); 

TWX0UTCLl»W0RK[0 3*«l#CRl.F); 

MSgPOINTER I» PREVMSGi 

PREVMSG I* O; 



END; 
lAM 



ENOJ 



t» OJ 



'»6 IS 



16008000 T 
16009000 T 
16010000 T 
16011000 T 
16012000 T 
16013000 T 
16014000 T 
16015000 T 
16016000 T 
16017000 T 
16018000 T 
16019000 T 
16Q20000 T 
23 UONGf 



0O06 
0006 
0009 
0011 
0013 
0013 

0016 
0017 
0019 
0020 
0022 
0022 
0022 
NEXT SEG 



X************************#«********************#*****************«***«** 

BOOLEAN PROCEDURE MAKEOKEVENT; 
X*********************************************************************** 

BEGIN 

STREAM PROCEDURE OKMESSC WORK}; 

BEGIN Dl >" work; 

OS im 28 UIT^SYSTEM OK - YOU MAY PROCEED*"; 
END; 



16900000 T 0061 

16501000 T 0061 

16102000 T 0061 

16503000 T 0061 

16104000 T 0061 
START OF SEGMENT ********** 

16505000 T 0000 

16506000 T 0000 

16507000 T 0004 



47 



DEFINE aCAU • UlNEtLl#A13#; 

LABEL Exit; 

FOB LL «• LLPREV+1 STEP 1 UNTIL MAXLlNES DO 

IF nODISKMCP THEN 

BEGIN 

EVENTSt03 l» 0&LLt33l33ll53&VMCP0Kt4ll33l73; 

OKMESSCWQRK); 

TWX0UT<LL'W0RKC0]*29,CRLF); 

MAKtOKEVENT i» TRUE; 

GO TO exit; 

END; 

TIMeTOOKLINES I« MAKEOKEVENT l» FALSE; 
EXITI 



16507500 
16508000 
11509000 
16510000 
16511000 
16512000 
16513000 
16514000 
16515000 
16516000 

16517000 

idsteooo 

16519000 



0004 
0004 
0004 
0009 
0010 
0010 
0013 
0014 
0016 
0017 

0017 
0018 
0020 



» • 



« * 



f I 



« * 



end; 



47 IS 



16120000 T 0021 
24 UQNG* NEXT SEQ 



PROCEDURE TEiCHERCLCW,A); BOOLEAN UCWJ ARRAY AtO]; 



************************ 



X******************************************************************* 



**** 



**** 



THEN SO quit; 

% CASE 



102- 
102- 



BEGIN 

REAL T*PTa*INUX*X; 

LABEL MESAGE* QUIT, EXIT; 
IF SeQMOoC OR NOT LOGGEDON 
IF NOT BOOLEANCDOING) THEN 
BEGIN 

PTR »» WORKAORS; INOX l» l' CLEAR( AtBA5E+l 3 *2 ) ; 
WHILE T NEQ 4 AND INOX LEQ 2 DO X SCAN INPUT RECORD 

BEGIN 

T^SCANCPTR^ACBASE +lNDXif IF XQ 

INDX* I THEN "Z" ELSE "9", WQRkENDAORS, X ); XO 

IF ACBASE + U NEQ QMARK THEN INDX laINDX+l ; 

end; X SCAN 
T t» AtBASE + U»C6l423; X FIRST INPUT AFTER QMK 
MaTCHCT^^CONTINU") 60 quit; X IGNORE '♦CONTINUE" INPUT 
IF COMPARCT^^STATUS ") QR T*"*" THEN 

BEGIN lAM l« VSTATUSCHECk; GO TO EXIT; END; 
MATCHCTf^DATA »} X SUCCEEDING InPUT GOES TO DATA FILE 

BEGIN 

IF RUNNING OR COMPILING THEN 60 TO MESAGE; 

IF FILENAME m Q THEN GOERRCNO FILE"*!)/ 

IF FILETYPE NEQ 8 THEN GQERRCT»60); X WRONG TYPE FILE 

oataenableo »« true; litoutcok "•n; go quit; 
end; 
matchct#''End ") X return to command mode 
begin 
if running or compiling then go to mesage; 

IF not DATAENABLED then G0£RR(T*8); 

oatienabled is False; whiteasteriski^true; go quit; 
end; 

ir not SCHEOULINE THEN 
BEGIN 

MATeHCT^^TQ " ) X SS MESSAGE 
BEGIN 

IF ACBASE+2a,tl»23 GTR THEN GO TO MESAGE; XQIOI- 

STICKCPTR*L#WORKENOAORS); 

ssmsg; LiTQUTc"* "#1); GO quit; 

end; 
match(t*''tape ") X SWITCH to paper tape mode 
begin 
match(run2*''can0e •• ) goerrcno pr6m"*8); 

IF NOT RUNNING THEN 60ERR CnOPRGRM^^B ); 

IF OEVIC£»CONRAC OR OEVlCEsBlDS THEN G0ERR(T*56); 

X PUT YOUR FUNNY TERMINALS HERE 



READTAPE(LL&I3C33I41I73*8#0*USERC0DE); GO QUIT; 



START 



25000000 
2SQ00I00 
25000200 
2S000300 
25000400 
OF SEGMENT 
25000500 
25000600 
2S000700 
2S000800 
25000900 
25001000 
25001100 
25001200 
25001210 
25901300 
25901400 
25001500 
25001600 
25001610 
25001620 
25001700 
25601800 
25001900 
25002000 
25002100 
25002200 
25002300 
25002400 
25002500 
25002600 
25002700 
25002800 
21002900 
21003000 
25003100 
25003200 
25003300 
25003400 
25003500 
25003600 
25003700 
25003800 
25003900 
25003910 
25003920 
2S004000 
25004100 
25004200 
25004300 
25004400 



0061 

0061 

0061 

0061 

0061 
I******** 

0000 
0000 
0002 
0003 
0003 
0007 
0009 
0009 
0013 
0016 
0020 
0020 
0023 

0025 
0027 
0032 
0033 
0034 
0036 
0045 
0051 
0056 
0056 
0057 
0056 
0060 
0068 
0073 
0073 
0074 
0074 

0076 
0076 
0079 
0081 

0065 
0065 
0066 
0087 
0097 
0104 
Olil 
Olll 
0111 
0111 



48 



MESAGEJ 
IF 
IF 



CNDJ 

end; X IF 



NOT §CHE0UIIN& 



IF 



PREVRCW • tJASE UEQ 35 T 
JNITIATIOWHILEBUSY THEN 

BEGIN 

IF RUNNING THEN LITOUTC 

COMPILING THEN UlTOU 

BEGIN 

LCO]!*" STATUS"; SUA 

TWXOUTClLiUCOJf U»2- 

ind; 
TO quit; 

ENDi 

DATAENABUEO THEN MSGPTR 



HEN % NOT ENOUGH ROOM 
% ORIGINAL REQUEST INCOMPLETE 



IF 



GO 



"RUNNING"* I) ELSE 
T("CMPILNG"*U ELSE 

NK(LC03); LCUl*"DK 
CONClSEBiT)! 



"I 8LANK(LtU)i 



QUiTt 



EXITI 

END 



LlOISkREAD I« 
DOING I" M 

Want i« vdiskread; 

EnO % CASE 
ELSE 

R c P T Kl 

If t i« msqptk mod 3 neo o 

TwX0UT£LL*W0RKC03*64*2 - C 
MsGPTR l» REALCRUNNiNG OR 
If SCHEDULINE THEN 
IF NOT NOSTOP THEN 

IF NOT B00LEANC5CHE0 
BEGIN 

lAM Is vchange; 

ACBASE3 l» SCHEON 
aCBASE^D t» 63j 
FlN0(LL«;lAMt33Ul 
USERCQOE^USE 
SCHEONAME im C oSC 
TEMP l« 2; DOING 
WAITFOR »«» IAM; 
GO TO exit; 
END ELSE SCHEDGOT 

IaM t* 0; INQUIRY 18 FALSE 

EnO; X CASE 1 



|i>6e;X YOU ARE IN DATA MODE 

MSGPTR Div 3 ♦ msgfileloc; 



THEN MOVEC 10* WORDS* WORK tTx 103* WORK [03 )* 
ONCISEBIT); INQUIRY l« FALSER 

COMPILING) X msgptr; 



NAMEiCllU) THEN 



AHE.£6t423J 

X "ABORTED'' FILE TYPE 

•73, CScHEDNAME, [61423* 

RCOOE); 

HEDNAME); X TERMINATING FLAG 



0£-i); 
; 



PROCEDURE teacher; 
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25904500 • 


r 0114 


25004600 1 


r 0114 


25004700 ■ 


r 0114 


2S004710 1 


r 0115 


25004715 1 


r 0116 


25004720 1 


r 0117 


25004725 1 


r 0118 


25004730 1 


r 0120 


25904735 1 


r 0124 


25004740 1 


r 0126 


25004745 1 


r Olio 


25004750 1 


r 0133 


25004755 1 


r 0133 


2S004760 1 


r 0136 


25004770 1 


r 0136 


25004800 1 


r 0138 


21004900 1 


r 0141 


25005000 1 


r 0141 


25005100 1 


r 0142 


25005200 1 


r 0142 


25005300 1 


r 0142 


2BB0S400 1 


r 0143 


25005500 1 


r 0148 


25005600 1 


r 0153 


25005700 1 


r 0157 


25005710 1 


r 0157 


2S005720 1 


r 0159 


25005730 1 


r 0161 


21005740 1 


r 0161 


25005750 1 


r 0162 


25005760 1 


r 0165 


25005770 1 


r 0166 


25005780 1 


r 0166 


25005790 1 


r 0172 


25005600 1 


r 0173 


25005810 1 


r 0175 


25005820 1 


r 0176 


25005830 1 


r 0176 


25005840 1 


r 0180 


25005900 1 


r 0184 


25006000 1 


r 0184 


29006100 1 


r 0184 


187 LONGj 


• next seg 



Rnrrniior TwPiiTfLcw.A.TTVTMPUT.nKQrrsrT.OTSKinnii 



INPUTUGW*A*TTYIMKgT*UK0FF5ET*OJSKLOCj; 
nknFFSET.DiSKLnri 



PROCEDURE 

X******t* 

VALUE 0K0FFSET*01SKL0C; 

REAL 0K0FFSET*0ISKL0C*TTYINPUT; 

BOOLEAN LCW; 
ARRAY AC03; 

BEGIN 
REAL STREAM PROCEDURE OUTSUPRClNPUT*OUTPUT); 



VALUE input; 



26000000 




0061 


26000100 




0061 


26000200 




0061 


26S00300 




0061 


20000400 




0061 


26000500 




0061 


26000600 




0061 


26000700 




0061 


26000710 




0061 



START OF SEGMENT ********** 



49 



(i • 



• » 



m 



BEGIN 

Dii»uQc input; o§»*7fill; 
sii»loc input; oiuoutput; 

8CIF SC*" •♦ THEN SjIsSl + l ELSE 

BEGIN DSIiCHR; TALLYl»TAl.lY*i; END); 

outsupr»«tauuy; 

END STREAII PROCEDURE OUTSUPR; 



26000720 




0000 


2600073Q 




0000 


26000740 




0000 


26000790 




OOOl 


26900760 




0002 


26000770 




0003 


26000780 




0003 



STREAM PROCEDURE PLSWAITCWQRK); 

BEGIN 

OI»»wORK; 0s»'»26llT"PWEAS£ WAIT - NO USER DISK"; 

END STREAM PROCEDURE PlSWAIT; 



26000790 T 0004 

26000792 T 0004 

26000794 T OOOS 

26000795 T 0008 



COMMENT THIS PROCEDURE SCANS THE INPUT USING SCANNER AND 
THEN CONTROLS THE PROCESS OF WHAT IS FOUND. 
IT BUILDS THE TABLES FOR DATA LINES* AND 
CALLS ON THE VERB PROCESSORS FOR COMMAND LINES. 

END comment; 

STREAM PROCEDURE FIXERR0RMSG(SEQ»L); VALUE SEO; 
BEGIN 

Dii'LOC seq; osi«7fill; simloc seq; du»l; 

0S«»'l6LIT''FIX SYNTX ERR ? "; 

8CIF SC'** " THEN Sll«SI*l ELSE DSJ«CHR); OSIsSHT" "; 

END STREAK PROCEDURE FIXERRORMSQ; 



26000800 




0009 


26000900 




0009 


26001000 




0009 


2600U00 




0009 


26001200 




0009 


26001210 




0009 


26001220 




0009 


26001230 




0009 


26001240 




0010 


26001290 




0012 


26001260 




0019 



DEFINE 



VERBV 
PAR 
SWDS 

TBLTOOK • 
MOREVfcRBS 



" ACSREG3.C40I8] #' 
« ACSREQ3,C25I8] *$ 
>« ACBASE3,C40l8] M, 
2«« 

• I #; 



LABEL CENTRAL#SCANI*N0DI5K#EXIT; 
REAL T*E; 

DEFINE TABCTAB13 ■ NORKCTABlJ *i 
CENTRALI CASE OOINQ OF 
BEGIN 
BEGIN % CASE 

IF NOT LOGGEOON THEN 
BEGIN 

lAM I. VHELLO; DOING • • i; 
% VOID 

GO IXJT 

end; 

IF seqmode then % coulo be leftarrow or data line. 

BEGIN % CHECK LEFT ARROW. 
IF W0RKC03 GTR I THEN 

BEGIN % SEQMODE DATA LINE. 

Tl»2; ACBASE3l«5E«iINl»SEQLASTI»SE0LA5T + lNCREMENT; 
IF SCHEOULINE THEN 



26001300 T 


0015 


26001400 T 


0015 


26001500 T 


0015 


26001600 T 


0015 


26001700 T 


0015 


26001800 T 


0015 


26001900 T 


0015 


26002000 T 


0015 


26Q02100 T 


0015 


26002200 T 


0016 


26002300 T 


0016 


26002400 T 


0016 


26902900 T 


0017 


26002600 T 


0018 


26002650 T 


0019 


26002700 T 


0019 


26Q02600 T 


0020 


26002900 T 


0020 


26003000 T 


0021 


26003100 T 


0021 


26003200 T 


0022 


26003300 T 


0023 


26003310 T 


0028 



BEGIN XSENO OUT SEO NUMBER. THE MCP WILL NOT DU IT 

E «» OUTSUPR(OECCONV(SEQLAST+INCREMENT)#waRKlOn; 

TWXOUT<LL#WORKCO]#E*NOCRLF); 
ENDJ 

IF DEVlCEssCONRAC QK 0EVICE»BID5 THEN 

IF SE«LAST"CHKSE«NMBR THEN 0UTPUTNUMBER5CUCW* At *] )i 
END ELSE T l» 51 X NULL INPUT 
END ELSE 

IF OATAENABLEO THEN % INPUT TO DATA FILE 
BEGIN 

ACBA5E3 IP LASTRECORD }» LASTRECORO + U 

T !• Zi 
END ELSE 
BEGIN % NOT SEQ MODE. 

SCANNER(HORKADRS#AC*]^LCW#wORKENOADRS}; 

SRE6 l» BASE ♦ i; 

Tt«ACBASEJtC3l3:J 

end; 

case t of x handle the input line, 

BEGIN 

BEGIN % OOPSI SCANNER RETURNED ZERO 

X WHICH MEANS THERE WAS A COMMENT' 
X SO JUST SKIP IT 
IAMI*WANTt«0; 
END SCANNER CASE Oj 

BEGIN % SCANNER s i | WE HAVE A VERB 

COMMENT VERB CHECKS 

IF CHeCKBIT{ACSREG3.C9I9] OIV 2* RESTRICTEDVERBS ) THEN 
BEGIN ERRSWlBVEReTABLECAtSREG3.C9J933; W ANT J sVERRORi MSGPTR««49; 

60 TO exit; end; % user is not permitted to use verb; 

WRITEASTERISK !• TRUE; 

tempi- i; 

PARAM l» SWDS; 

IF WENEEDTOCOOLIT THEN 

BEGIN DOING Is 3I 

GO TO nooisk; 
end; 

SCAnH want \m VIRBV; 

IF VERBV « VSEQ THEN IAMI»0 ELSE 
IF ACBASE3»C18I153 GTR I THEN DOING Is MUREVERBS 
ELSE lAM l« O; 
END SCANNER CASE U 

BEGIN X SCANNER a 21 WE HAVE A SEQ NUMBER* 

IF FILENAME « OR 

NOT FILESOK THEN GOERRCNO FILE"*!); 
E tm AC$REG3& DISKLOC [41 361 123 

Hi OKaFFSET[16lA3lS3; 
IF SEQMOOE OR OATAENABLEO THEN T l« 2 
ELSE BEGIN TUACSREG^U; SEQINI»A[SREG3 ; END; 
crij23li(T; 

IF T««3 THEN IF FIX£RR0R(W0RKA0R5f WORKENOADRS 3 THEN 
BEGIN 

FIXERROHM5qCdECCONV(ACSREG3 3'U); TWXOUTCLL.#L[0 3#24n); 
MSQPTR !•» 2i; lAM l» 0; GO TO EXIT; 

end; 
comment now put put entry into table; 
NOSAVE M false; 



26003320 


T 0028 


26003330 


r 0029 


26003340 


r 0033 


26003350 


r 0035 


26003360 


r 0035 


26003370 • 


r 0037 


26003400 ' 


r 0041 


26003S00 ' 


r 0043 


26903510 " 


r 0043 


26003520 ' 


r 0045 


26003530 - 


r 0045 


26003540 • 


r 0048 


26003550 ■ 


r 0049 


26003600 ' 


r 0049 


26003700 ' 


r 0049 


26003000 • 


r 0052 


26003900 1 


r 0053 


26004000 1 


r 0054 


26004100 1 


r 0054 


26004200 1 


r 0055 


26004300 1 


r 0055 


26004400 1 


r 0055 


26904500 1 


r 0055 


26004600 1 


r 0055 


26004700 1 


r 0056 


26004600 1 


r 0057 


26004810 1 


r 0057 


26004820 1 


r 0057 


26004830 1 


0060 


20004840 1 


r 0064 


26004900 1 


r 0065 


26fO5000 1 


r 0067 


26005100 1 


r 0068 


26005120 1 


r 0069 


26005140 1 


' 0070 


26005160 1 


• 0071 


26005180 1 


• 0072 


26905200 1 


' 0072 


26005250 1 


' 0073 


26005300 1 


0076 


26005400 1 


" 0079 


26005500 7 


• 0081 


26005600 1 


' 0081 


26005700 1 


' 0081 


26005800 T 


0082 


26005900 1 


0090 


26006000 T 


0091 


26006100 1 


0093 


26006200 T 


0095 


26006300 1 


0099 


26006310 T 


0101 


26006320 1 


• 0103 


26006330 T 


0104 


26006340 T 


0108 


260063S0 T 


OHO 


26006400 T 


0110 


26006450 7 


oiio 



* • 



n* 



v 



GOODOBJ I" FAISE; X OBJ DOES NOT MATCH SOURCE 

IF OOGHOUSECtL] LEG THEN % FIRST DOG* 
DOGHOUSE CUL 3 I»CTRaN0BaSECR0WINUSE3^ 

AtTBASE ♦ TPENTRY] I a E; 

INC (TPCOUNT); 

IF TPENTRY LS5 9 THEN 
BEGIN INC (TPENTRY)I 

ACTPENTRY3 l« TEN8i 

lAM M DOING l» WANT l» Oj 
END ELSE 
BEGIN 

DOING l« TBLTQOK; 

IF TPREC 6TH THEN % GET BACK WHAT WAS WRITTEN BEFOREt 
BEGIN 

UUDISKREAD In TPDKADR; 

TEMP »« 3; WANT Is voiskread; 

END Ei,SE GO TO CENTRA^i 

end; 

END scanner case 2} 

BEGIN % scanner s» 3| WE HAVE A SPEC CHAR 

lAM M o; 

END scanner CASE 3i 

BEGIN % SCANNER m 4t ITS AN SS MSG 

writeasterisk is thue^ 
ssmsg; 

lAM l» Oi 
END CASE 4; 

BEGIN X CASE 5 " NULL INPUT 

WRITEASTERISK !» SEQMODE; % RESPOND IF ENDING SEQt MODE 
SEQMODE !• false; 

lAM i» o; 

END CASE S; 

END SCANNER CASESj 



END CASE OJ 

BEGIN % CASE II MOREVERBS 

IF WENEEOTOCOOLIT THEN 
NODISKI BEGIN PLSWAITCWORK ) ; 

TWX0UT(LL#W0RK[0]*26,ni 

waitfor i^ vmcpqk; 
N00I8KMCP i» true; 

M5GP0INTER in 46; 

GO TO exit; , 



end; 
sreg 

TEMP 
PARAM 
WANT 
IF 



I" SREG * 
I" TEMP + 
In PARAM 
tm VERBV; 



(T 

t; 



Is PAR ♦ I); 



t; 



END 



CHeCKBnCAtSREG3.C9l93 DIV 2#RESTRICTE0VER8S) THEN 

BEGIN 

ERRSW l«» VERBTABLE|;ACSREG3.t9l93]; 

WANT l« VERROR; MS6PTR lo 49; 

GO TO exit; 

end; 

IF SWDS a TEMP + PAR THEN lAM Is DOING l» O; 
CASE U 



26006500 
26006600 
26006700 
26006800 
26006900 
26007000 
26007100 
26007200 
26007300 
26007400 
26007500 
26007600 
26007700 
26607600 
26007900 
26008000 
26008100 
26008200 
26008300 
26008400 
26009200 
26009300 
26009400 
26609500 
26009600 
26009700 
26Q09800 

26009810 
26909820 
26009630 
26809840 
26009850 
26009900 
START OF SEGMENT 
50 IS 7 LONG 
26010000 
26010100 
26010U0 
26910120 
26010130 
26010140 
26010150 
26010160 
26010170 
26010180 
26010200 
26010300 
26010400 
26010500 
26010510 
26010520 
26010530 
26Q105«0 
26010550 
26010560 
26010600 
26010700 



0113 
0115 
0116 
0118 
0120 
0124 
0126 
0130 
0132 
0134 
0134 
0136 
0136 
0138 
0138 
0141 

0143 
0143 
0143 
0143 
0143 
0144 
0144 
0144 
0147 
0147 
0148 

0148 
0148 
0151 
0153 
0154 
0155 
********* 

NEXT SEG 
0155 
0156 
0156 
0156 
0159 
0160 
0161 
0163 

0165 
0165 
0165 
0168 
0169 
0171 
0172 

0175 
0176 
0177 
0179 
0180 
0180 
0164 



50 
49 






BEGIN % CASE 21 TBLTOOK 

CHKPTUt*])i 

IF TPREC L3S 2 THEN 
INC(TPREC) 

ELSE 
BEGIN 

TPREC !• o; 

INC(TPDKREL)j 

IF TPOKREL GTR H THEN 

BEGIN UTOUTCCWAIT)"*!)^ WANTi sVUPOATE ENOi 

end; 

TPENTRY J« lAM l» O; 

END CASE a; 

GO TO SCANli % CASE 3 
END ALU cases; 



EXIT* 



END USER input; 



2601 

2601 
2d0l 
2601 
2601 
2601 
2601 
26 SI 
2601 
2601 
2601 
2601 
2601 

2601 

2601 

START OF SEG 

51 IS 5 
2601 
2601 

«9 IS 212 



0800 
0900 
1000 
UOO 
1200 
1300 
1400 
1500 
1520 
1550 
1600 
1700 
IBOO 
1850 
1900 
MENT ** 

LONG* 
2000 T 
2100 T 

UONG« 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0185 
0185 
0186 
0188 
0186 
0192 
0192 
0195 
0199 
0200 
0202 
0202 
0205 
0206 
0208 
******** 

NEXT SEG 

0206 

0209 
NEXT SEG 



51 

«9 



X**********************************************************************x 
PR9CE0URE DISPATCH(uCw#A)| BOOLEAN tCw; ARRAY A[0]; 

X***************************************************************4>******X 



BEGIN % STARTS 
REAL chunks; 



JOBS 



CtEARCW0RKC03*30); 
WORKCOJl-WORKCHn'RUNi; 
WORKCni«WORKC33 l«RUN2; 
W0RKC23J-0&2C8I38U03; 
W0iKC16j»*IF PROCESSLIMIT 



START 



THEN lOLIMIT ELSE 54000; 
CORE ESTIMATE GIVEN 



WORKClTjItiF lOUlMIT GTR 
IF CORESIZE GTR THEN % 

BEGIN 

CORESUE««IF CORESIZE ISS 2048 THEN 32 

WQRK[20]I«C0RESIZ£ & U2l47tl3; % CANT 

end; 

M0RKC21]t»2s6; X STACK SUE 

W0RKt243l»USERC0DE; X USER CODE 

IAM|«q; WANT !• WAITFOR I* VMCPMSQ; TEMp t* 
MATCH(RUN2,[I»423*''CAN0E ") X CANOE JOB TO 

BEGIN 

MATShCRUNI^wQUIKUST") 
MATCHCRUNl*"PUNCH 
MATCH(RUNl*«l.OAO 

MATeH£RUNl#'»OELETE 
MATCH(RUNl#"LFIUES 

matchcrunWljst 

MATCH.CRUNl*"PAPER 

CHUNKSI«4; 
W0RKt203l»(CHUNKS)cl6) 



X FIRST NAME, 
X SECOND NAME 
X EXECUTE CODE 
GTR THEN PROCESSLIMIT ELSE 54000; 



ELSE CORESUE 
EXPAND CORE 



o; 

RUN 



OIV 64; 



»Q104- 



"J 
"3 



CHUNKSt»2 
CHUNKSt«2 
CHUNKSt*3 
CHUNKSI"3 
CHUNKSI"3 
CHUNKS«»6 
CHUNKSi«S 



ELSE 
ELSE 
ELSE 
ELSE 
ELSE 
ELSE 
ELSE 



X0510- 



WQRKc03.C2ll3l»i; 
WQRKcl3t»ERRSW; 



U2M7tl3; 
X NOT oS-ABLE 



27000000 
27000100 
27000200 
27000300 
27000400 

OF SEGMENT 
27000500 

27000600 
27000700 
27000800 
27000900 
27001000 
2700U00 
27001200 
27001300 
27001400 

27001500 
27001600 
27001700 
27001800 
27Q01900 
27Q02000 
27002100 
27002200 
27902300 
27002400 
27002500 
27002600 
27802700 
27002800 
27002900 
27003000 
27003100 



0061 
0061 
0061 
0061 
0061 
t******** 

0000 
0001 
0003 
0006 
0008 
0011 
0015 
0015 
0016 
0019 

0021 
0021 

0023 
0024 
0027 
0030 
0030 

0033 
0042 

0047 
0052 
0057 
0062 
0067 
0069 

0072 
0075 



52 



* * 



«:• 



ii: 



WORKC183 
WQRK|;19] 
MSGPTRl" 
END 
ELSE 

BEGIN % 
W0RK[2n 
W0RK[193 
WORKtlB] 
EOJMSG I 
IF RUNli 

Begin 

WORKC 

End 

IF NOT C 
LiTOU 

msgptr » 

END IF 
WORKCa3.[33 
RUNNINS IM 
STACKSIZEt* 
IF EQUATED 
IF NOT( CCQ 

BEGIN 

W0RKCU3 

enteresp 

EQUATED 

end; 

RUNJOB(t,L&W 
END OF DI 



l«l & SCHEDUIINRC46U7II]; % PRIORITY 
l»ESPU 



MUST BE USER TYPE JOB. 

m STACKSlZEi X CGMPIUER EST. QR SPEC. VALUE 
i>C0MMONVALUE; 

l» 4 + REAHSCHEDULINE); 
m NOT CONCISE; WRI TEASTERI SK l» CONCISE; 
[6163 « THLN X REQUIRES SHIFTING 

03I»IF RUNl.Cl2l63»i THEN FILENAME ELSE » -&RUNI t6J 121 363 ; 

shift; 

ONCISE AND NOT COMPAR(RUN2#«oISK ") THEN 
T( "RUNNING"* 3" 100002"); 
» 44; 

not canoe type job; 
u53iwworkc183; x priority 

true; 

PROCESSLIMITJ»IOLIMlTlitCORESUEl»COMMONVALUE|«o; 

THEN 

mPARCRUN2/"CAN0E ")) OR CC0MPARCRUN2#"0I SK "))) THEN 

l»»FIR5TESP; X LABEL EQUATION 
(•LL#0#AC*3); X SCRATCH TABLE ENTRIES 

m false; 

AlTFQRt33l4irn#W0RKCO3*0j; 

spatch; 



27003200 
27003300 
27003400 
27003500 
27003600 
27003700 
27003800 
27003900 
27904000 
27§04100 
27004200 
27004300 
27004400 

270O4S00 
27004600 
27004610 
27004700 
27004900 
27004900 
27009000 
27005100 
27005200 
27005300 

27005400 
27005S00 
27005600 
27005700 
27005800 
27005900 
27006000 
52 IS 135 LONG* 



0076 
0079 
0080 
0081 
0081 
0081 
0082 
0083 
0084 
0087 
0093 
0094 
0095 

0100 
0100 
0104 
OlOS 
0106 
0l06 
0109 
0111 
0114 
0114 
0119 
0119 
0121 
0123 
0126 
0126 
0128 
NEXT 5EG 



x*************************************************************«*****«**x 

PROCEDURE OISKREADCLCW* A); BOOLEAN LCw; ARRAY AC03; 
X**********************************************************************} 

BEGIN 
LABEL t; 

IF NOT BCDOiNq) ThEN X DO READ INITIATE, 
BEGIN 

IF PREVRCW « BASE LEQ 33 THEN X AREA IS TOO SMALL* 
BEGIN 

ERRSW U "TDOLONQ"; 

MSGPOINTER !■ 9; 

£RR0R(SRE6*LCW*AC*J); 
END IF NOT ENOUGH ROOM 

ELSE 
BEGIN 

TEMP l» 3i; 

SREG ?" COOINGIvl) t SREG; 

WAITFOR i» iam; 

DISKI0(LL&IAMC33«4U73*1*AC03*SREG*30*LLDISKREA0); 
END OF READ INITIATE 
END ELSE 



28000000 T 0061 

28000100 T 0061 

28800200 T 0061 

28000300 T 0061 

28000350 T 0061 

START QF SEGMENT *******i 

28000400 T 0000 

28000500 T 0000 

28000600 T 0001 

28000700 T 0002 

28000800 T 0002 

28000900 T 0003 

28001000 T 0004 

28001100 T 0006 

28001200 T 0006 

28001300 T 0006 

28001400 T 0009 

28001500 T 0009 

28001600 T 0011 

28001700 T 0012 

28001800 T 0015 

28901900 T 0015 



53 



BEGIN % READ IS COMPLETE NOW MOVE IT TO WORK, 
M0VEC30#WDR0S«ACSREQ]#WQRKC0]}J 

lAM !» o; 

END IF READ COMPLETE; 
END OF DISKREAO; 



26002000 
28002100 
28e02200 
26002300 
26002400 



53 IS 20 LONG, 



0015 
0016 
OOiS 
0019 
0019 
NEXT SEG 



X**4r*****************************ilt*********«******************** 



PROCEDURE 



OOPS (UCW* A)i BOOLEAN LCw^ ARRAY ACOJ^ 



X******«*******«r*4r************************************************ 



LABEL t; 



BEGIN 



SREG l« BASE - ACBASEj; 
ERRSW tm ACINCCSREQ)]; 

msgpointer i» 13; 
error (sreq# lcw# ac*3); 
end of oups; 





30000000 




0061 




30000100 




0061 




30000200 




0061 




36000300 




0061 




30000350 




0061 


START 


OF SEGMENT 


********** 




30000400 




0000 




39000500 




0001 




30000600 




0003 




3Q000700 




0004 




30000600 




0006 


54 


IS 7 LONG, 


NEXT SEG 



54 



X************************************************************** 

.PROCEDURE DqGCAtCHERClCW^A); BQOlEAN LCW; array At0]i 
X************************************************************** 



LABEL T; 



BEGIN 



IF NOT BOOLEAN (DOING) THEN 
BEGIN X COLLECT TANK RECORDS, 

DOING !• TEMP I* li OOGHOUSECULJlsO; 

HTOUT("(WAIT) "^NOCRLF); 

IF TPCOUNT NEQ THEN WANT l» VUPOATE; 



END 
BEGIN 



ELSE X COLLECTION FINISHED. 



END 
END 



OQGLICENSE l» FALSE; lAM 

dogcatchersi* 006catchers 

wecanusedatai»d0gcatcher5 

litogtc*'proceed''*crlf); 

if; 

dogcatcher; 



i« o; 
-i; 

LEQ o; 



31000000 
31600100 
31000200 
31000300 
31000350 
START OF SEGMENT 
3100040Q 
31000500 
31000600 
31000700 
31000800 
31000900 
31001000 
3100U00 
31001200 
31001300 
31001400 
31001500 
31001600 
3100U00 
55 IS 19 LONG 



0061 
0061 
0061 
0061 
0061 
********* 

0000 
0000 
0001 
0003 
0004 
0007 
0007 
0007 
0010 
0013 
0014 
0016 
0017 
0017 
NEXT SEG 



55 



X*********************************************************** 
PROCEDURE C0MPILEIT(LCW#A); BOOLEAN LCW; ARRAY AtOj; 
X*********************************************************** 



UABEL Tl 



BEGIN 



32000000 
32000100 
32000200 
32600300 
32000350 
START OF SEGMENT 



0061 
0061 
0061 
0061 
0061 



********** 



56 



* * 



Ml 



% 

% 

% 



% 
% 
% 



% 
% 
% 



% 

% 
% 



GENERATE THE LABEL EQUATIONS FQK THE COMflLERt 

CL£AR(W0RKt03#59); 

W0RKC03l»CW0RKtl43l«RUNU,C6l363; XFIRST NAME 
WQRKtl3«*WORKtl5H»U5ERCOOE; XSECNO NAME 

waRKC33»«HO; W0RKn73l«l2j XFILEb TYPE 

W0RKC4] Is^COOE "&4Clt43l5]j 
WORKC183l»''CARD •♦&4C 1 »*3»53; 
DlSKWRlTE(ESP2); CLEAR (WQRK [03*29 ); 

GENERATE THE OBJECT SKELETON ON THE DISK. 

WQRKC163l»W0RKCi73««3''7777777777''; XTIME LIMITS 
WORK n83l"5l X PRIORITY 

WORKC203l»»ll XNO CORE EST 

W0RKC2nis5l2; XSTACK SUE 

oiskwritecespd; clearcworkc 03*293; 

GENERATE THE COMPILER CALLOUT. 



X0525- 



W0RKCV43» 
W0RKC013( 

W0RKC023» 
W0RKC33I9 
WQRKC163I 
WQRKC193I 

W0RKC223I 
W0RKU63 
ir PROCESS 

WORKC173 
IF lOLIMI 

WORKC213 
IF STACKS 
STACKSIZEI 



«ABS(WORK[0 3>»RUN2&l6tI»43l53 3;x-COMPILERt 
»IF RUNl.C6ll23»"iS'' THEN 

FILENAME ELSE RUNi; XFILENAME, 
*4&4C8l38»103&£SplC18»33»l53;X00J,S 
-DISK »} W0RKtl33»»E5P2IXL8L EQN 

•4+scheduiinr; x priority 

•if commonvalue lss then i else 3^ 

»8; W0RKt243l«USERC00Ei XSAVE&USER 

!• 

LIMIT GTR THEN PROCESSLIMIT ELSE 3»'7777777777"i 

Is 

T GTR THEN lOLlMIT ELSE 3"7777777777«; 

»» 

IZl GTR THEN STACKSUE ELSE 512; 

•PROCESSLIMIT I *IOLIMIT I •CORESl^E* "COMMONVALUE «»0' 



END 



NOW TELL CANOE & THE MCP. 

COMPILING !• true; writeasterisk I* concise; 
BOjMsfi IS NOT concise; eojmsg «• NOT cqncjse; 
mssptr i» 43; 
iami«o; wanth»waitfor»*vmcpm5g; temp m 3; 

RUNJO«CLL*WAITFORC33I41I73»WORKC03*0); 

esph»setespoisk; esp2ihget£spoisk; 
OF compileit; 



xocs 



56 IS 



32000400 
32000500 
32000600 

32000700 
32000800 
32000900 
32001000 
3200U00 
32001200 
32001300 
32001400 
32001500 
32001600 
32001700 
32001800 
32001900 
32002000 
32002100 
32002200 
32002300 

32002400 
32602500 

32Q02600 
32002700 
32002800 
32002900 
32Q03000 
32003050 
32003100 
32003110 
32003120 
32003130 
32003140 
32003150 
32003160 
32003170 
32Q03200 
32003300 
32003400 
32003500 

32003510 
32003550 
32003600 
32603700 
32003800 
32903900 
90 LONG* 



0000 
0000 
0000 

0000 
0001 
0004 
0006 
0009 

oou 

0013 
0018 
0018 
0018 
0018 
0020 
0022 
0023 
0024 
0029 
0029 
0029 
0029 

0033 
0035 
0037 
0040 
0043 
0045 
0049 
0051 
0052 
0054 
0055 
0058 
0058 
0061 
0061 
0064 
0064 
0064 

0069 
0076 
0077 
0080 
0082 
0065 
NEXT SEQ 



X****tk**************************************«*************************** 
PROCEDURE SETUPFIL£SCLCW*A); BOOLEAN LCWI ARRAY At03; 

RrfiTki 



BEGIN 
REAL T* 



Tl, T2; 



33000000 
33000100 
33000200 
33000300 
33000400 
START OF SEGMENT 



T 

T 
T 
T 
T 



0061 

0061 
0061 
0061 
0061 



********** 



57 



LABEU RETRY, EXIT; 



DEFINE 

loopcount 
filecount 

STACKSIzE 



a ACBASE],[18I1S]«# » 
8 ACBASe].C33ll5]#, X 
m 5«; X 



COUNTER FOR 
COUNTER FOR 
$TACK WORDS 



"IN-USE" CONDITION 

FILES CREATED 

REQUIRED FOR THIS ROUTINE 



DEFINE 

SEGMENTZER0ADDRESS(5E6MENTZER0A00RESSI)» 
ACBASE-^(SEGMENTZER0ADDRESSlx2]-l]«« 

HEADERAdDRESSCHEADERADDRESSU" 
ACBAsE+(HEA0ERADDRESSlx2)]#i 



STREAM PROCEDURE ERR0RME5SAGE<T#USERC00E'L J^ VALUE T^USERCODE' 
BEGIN 

si»»uoc t; dh*l; 

2(SII»SI + 1/ DSM7CHR; DSI»UIT'V")i DI«*OI-U 

OSlwl/LlT" CLEAREOCIN 

EnD) 



DSI»UIT'V")i 
USE)*"; 



33000300 
33000600 
33000700 
33000600 
33000900 
31001000 
3300U00 

33001200 
33001300 
33001400 
33001500 
33001600 
33001700 
33001600 
31001900 
33002000 
33002100 
39002200 
33002300 



0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0002 
0004 



CASE DOING OF 
BEGIN 

BEGIN % CASE • INITIALIZATION OR RE-THY 

FiLESoM «« false; 

Ac6ASE]t«0; X RESET COUNTERS 
RETRY! % B8ANCH POINT FOR ANOTHER ATTEMPT 
CLEAR(ACBASE + n*3j; 
FjLECOUNT l» O; 
LASTtECORO «' O; 
T !■ MAKEFN ( ** IT", LL ) ; 

MakEFILECLL&IAMC33I41I7 3#1*T#USERC0DE»0#1O); 
T I* T4''P"C12I42»63; 

MAKEFlLECLLilAMC33l4ll73#l*T*USERCQDE*C0&U4H47«l])*TBLS2); 
% t41tn IN FILE TYPE SETS "FIXED" BIT IN HEADER 

tableinfo «» 3"ioooo"; 
TEMP i» stacksize; 
DOING t« i; 
waITFOR I* IAm; 
End case o; 
% , • • . t • 1 1 f f . < 

begin X CASE I " results OF CREATION REQUEST 

FiLECOUNT l« FILECOUNT ♦ i; X COUNT UP NUMBER OF "RESULTS" 

5EGMENTZERQA00RES§CFlLEC0UNT)l»EVENTS[n; 

He AOER ADDRESS (FILECOUNT)»»EVENTSE 23; 

if fllecognt»l then waitforl»iam % "it" results, wait for "ip" 
Else 

BEGIN 

IF ((Tl»«SEGMENTZEROADDHESS(l)) LSS 63) OR 

(CT2I«SEGMENTZERQAD0RESS(2>) LSS 63) THEN 

BEGIN X INCORRECT RESULT 

IF (T1»0) OR {T2«»0) THEN X NO USER DISK CONDITION 
BEGIN 

msgpointeRi»46; x no user disk 



39002400 ' 


r ooos 


39002500 - 


r 0005 


33002600 ■ 


r 0005 


33002700 ■ 


r 0005 


33002800 ' 


r 0005 


33002900 ' 


r 0006 


33003000 ' 


r 0009 


33003100 1 


r 0010 


33003200 ' 


r oou 


33003300 1 


r 0013 


33003400 ' 


r 0015 


33003500 1 


r 0016 


33003600 ' 


r 0020 


33003700 1 


r 0021 


33003600 ' 


r 0026 


33003900 1 


r 0026 


33004000 ' 


r 0027 


33004100 1 


r 0028 


33004200 1 


r 0029 


39004300 1 


r 0029 


33004400 1 


r 0030 


33004500 1 


r 0030 


33004600 ^ 


r 0030 


33004700 1 


r 0033 


33004800 1 


r 0037 


33Q04900 1 


r 0040 


33005000 1 


r 0042 


33005100 1 


r 0043 


33005200 1 


r 0045 


33005300 1 


r 0046 


39Q05400 1 


r 0051 


39*05500 1 


r 0061 


33005600 1 


r 0053 


39005700 1 


r 0054 



•■ ♦ 



• « 



FItENAME tf SOURCEFIIE im 

IF Tl GEQ 63 THEN X "IT" F 
R£MQVEFItECl,U&l3C33Ull7]# 

IF T2 GEO 63 THEN 

REM0VEFILECLL&13C33UI»7]# 

JAMt«0; 

GO TO exit; 

ENOi X IF NO USER DISK 
IF (Tl»l) OR CT2»l) THEN X Fl 
BEGIN 

T t* (IF Tlsi THEN I ELSE 
UL0ISKREA0I«HEADERA00RESS( 
DOING tm 2i 
MANT ta VOISKREAOJ 

GO TO exit; 
end; 
goerrcbaofile^^zs); x system 

END^ X IF THERE WAS An £RR0R 

actbase+103 m tenbi 

wrktbuadr i« segmentzeroadoressc 

CANCEUCKPTCAt*]); 

WORKC03I«0; WORKClllsTENs; 

OISKWRITECSEGMENTZEROADORESSCI)) 

FILESOK l« true; 

lAMHiO; 

end; X IF AUt RESULTS WERE IN 

End; x case i 



o; 

ILE EX I STS 
MAKEFNCIT^'LD'USEHCOOE); 

MAKEFNcniP^fLD^USERCOOE); 



LE "IN USE" CONDITION 

2); % INDEX VALUE 
T); 



ERROR, FUNNY RESULT 
IN THE CREATION PROCESS 

2); % FIRST HECORD OF "IP" FILE 



; X SET UP "IT" FILE RECQRO 



BEGIN X CASE 2 • HEADER IN CORE 

UOOPCOWNT l» LOOPCOUNT ♦ H 

If LOO»COUNT 6TR 2 THEN GOERR("BAOF 

woRKca]i«woRKca] & OC114513] & 0Cl6 

W0RKC9]«sW0RKt9] & 0CI«20I283; 

T|»(IF SEGMENTZEROADDRESS(l)»l THgN 

OISKWRITECHEADERADDRESS(T)); 

Tl«(lF T»I THEN "IT" ELSE "iP"); 

Tt»MAKEFN(T#LL); 

ERRQBMESSAGE(T#USERCOOE#L}J 

TwXOUTCOfLtO]#32#lJ; 

Go TO retry; 
End; x case 2 

END ALL cases; 



ILE"^223; X CANT CLEAR IT 
128120]; 

1 ELSE 2); 



EXIT! 

END PROCEDURE 



SETUPFILES; 



330QdeOO 

33005V00 
33006000 

33OO6IOO 
3i006200 
33006300 
33006400 
33006500 
33006600 

33006700 
3iQ06600 
33006900 
33007000 
31007100 
33007200 
33007300 
33007400 
38007500 
33007600 
33007700 
33007800 
33007900 
33008000 
33008100 
33008200 
33006300 

33006400 
33008500 
33006600 
31008700 
31006800 
33006900 
33009000 
33009100 
33009200 
3300V300 
33009400 
33009500 
33009600 
31009700 
33009800 
33009900 
START OF SEGMENT 

58 IS 4 LONG 
33010000 
33010100 

57 IS 143 LONG 



0055 
0057 
0058 
0063 
0063 
0068 
0069 

0069 
0069 
0071 
0072 
0074 
0077 
0078 
0078 
0079 
0079 
0085 
0065 
0066 
0089 
0091 

0093 
0098 
0100 
0101 
0101 
0102 
0102 
0102 
0105 
0115 
0118 
0121 

0125 
0130 
0132 
0134 
0136 
0137 
0138 

0136 

********* 

NEXT SEQ 
0139 

0140 
NEXT 5EG 



58 
57 



X***********************************************************************( 



PROCEDURE 



errqr(S,lCh#a); value s; real s; boolean lcw; array aco]; 



X**********************************************************************^ 



BEGIN 
REAL 



t; 



34000000 




0061 


34000100 




0061 


34000200 




0061 


34000300 




0061 


34000400 




0061 



START 8F SEGMENT ********** 59 



real stream prqcfcoure mker(erksw#l# chrtog* strt0g*mint0g#p15t0g ) j 

value errsw#chrtqg*strt0g*mlnt06*plst0gi 
Begin label exit; 

SllKLOC ERRSW; OII»l; DSJaSLlT^ERRI »f TALLY««Si 

CHRT0GCSH9SI+7J osi«»ichr; tally isTally+u jump uut to EXIT); 

STRTOGCSn»SI*U 05|»7CHR; TALLYI»TALLY*7I jump QUT to EXIT); 

mintogcdsmlit"-"; tally istally + u; 
plstqgcdsi'LIT"*"; tally i«»tally+i); 

MlNTOG»*Di; DS»b8 DEC; Oll'»MlNTOG; dsi«7fill; 

sii»mintog; dii«minto6; 

8(IF Ses" " THEN SU»SI*l ELSE 

begin osi^chr; tallyi«itally*j; end); 



EXIT! 



mker is tally; 

End stream procedure 



mker; 



34000500 


T 


0000 


34000600 




0000 


34000700 




0000 


34000800 




0000 


34000900 




0001 


34001000 




0004 


3400U00 




0006 


34001200 




0008 


34001300 




0010 


34001400 




0011 


34001500 




0012 


34001600 




0013 


34001700 




0014 


34001800 




0014 


34001900 




0015 



Tt»MKERCERRSWfC6l42]#L*(ERRSWiCl«23*l)#CERRSWtC6U2J GTR 0)* 

(ERRSW,CII2]«2)*(ERRSW,C1»23»«3)); 

TWXOuT(LL*LCO)#T*l); 

WRITEASTERISK l« FALSE; 

T i» msgptr; 
lineclearclcw«ac*]); 
msgptR «• t; 

IF SCHEDULINE OR HELPFUL THEN 

BEGIN % TERMINATE SCHEDULE I/P & EXPLAIN WHY 

iam lis vteacher; oqinq i« i; % oont scan input 

LlDISkREAO I« msgptr OIV 3 ♦ MSGFiLELOC; 

Want i«» vdiskread; 
writeasterisk i* true; 

End; 

end ERROR procedure; 



59 IS 



34002000 




0016 


34002100 




0016 


34002200 




0022 


34002300 




0025 


34002400 




0027 


34902500 




0029 


34902600 




0030 


34002700 




0032 


34002800 




0033 


34902900 




0035 


34003000 




0035 


34803100 




0037 


34903200 




0039 


34003300 




0040 


34003400 




0042 


34Q03500 




0042 


45 L0NG# 


NEXT SEG 



PROCEDURE ClOSEWQRKTABLE (LCW, A); BOOLEAN LCW; ARRAY Acoj; 

X#*************************************iir******««********X 



LABEL 



BEGIN 



BEGIN 
BEGIN 



BEGIN 



cASEi* exit; 

CASE DOING OF 

% CASE 
IF GOUOOBJ THEN 

GOOOOBJ ««• TPCOUNT » O; 
IF NOT FILESOK THEN GOERRC'NO FILE^^U; 
IF TPENTRY U5S 9 THEN A[ TBASE+TPENTRY] I* TENS; 
IF TPREC GTR THEN 

LLDISKREAO l»» TPOKAQR; 
DOING u i; 



35900000 T 0061 

35000100 T 0061 

35000200 T 0061 

35000300 T 0061 

35000400 T 0061 
START OF SEGMENT ******** 

35000500 T 0000 

35000600 T 0000 

31000700 T 0000 

35000800 T 0000 

35000900 T 0001 

35001000 T 0005 

3590U00 T 0013 

35001200 T 0017 

39001300 T 0019 

31001400 T 0019 

35001500 T 0022 



60 



• * 



«' 



WANT 
END EUSE 
END CASE 

casek 

BEGIN 
CHKPt(AC*3); 
% VOID 

IAM !• o; 

END CASE i; 

END aul oases; 



tm VDISKREAD; 
QQ TO CASEl 
Oi 

% CASE I 



EXIT» 
END 



closeworktabie; 



3S0OU00 T 0023 
35001700 T 0023 
39001800 T 0023 
35001900 T 0024 
35002000 T 0025 
35002100 T 0025 
35002200 T 0026 
35002300 T 0026 
35002400 T 0027 
35*02500 T 0027 
START OF SEGMENT ********** 

61 IS 3 LONG, NEXT SEG 
35002600 T 0028 
35002700 T 0028 

60 IS 10 LQNG# NEXT SEG 



61 
60 



X******* ************************ 



**************************************** 



ARRAY At0]J 



PROCEDURE CHNGPSWD(LCW*A)i BOOLEAN LCW; r,..„„, r,»„, 
X*********************************************************************** 

BEGIN 

LABEL ErR#ExIT; 

STREAM PROCEDURE 0LDPSW0CM}j 

BEGIN Dll«W; DSI«30LIT"PLEASE ENTER YOUR OLD PASSWORD"; END; 



36000000 T 0061 



36000100 
36000200 

36000300 
36Q00400 
START OF SEGMENT 
36000500 
36000600 



T 0061 

T 0061 

T 0061 

T 0061 

********** 

T 0000 

T 0000 



62 



STREAM PROCEDURE NEWPSWO(W); 

BEGIN DI|»W; DS»*28HT"NEXT ENTER YOUR NEW PASSWORD"; ENO; 



36000700 T 0004 
36000800 T 0004 



STREAM PROCEDURE VFVPSWDCW); 

BEGIN DIl'^W; DS»s3lLlT"PLEASE REPEAT YqUR NEW PASSWgRD"; ENO; 



36000900 T 0009 
36001000 T 0009 



STREAM PROCEDURE SCANPSwDC W*S,EAORS ); VALUE EAORS; 
BEGIN LOCAL SV#0v; 

sii»w; 

OlliSi DSIISLIT^Q "i DI!«?Dl-7; 
7<IF SC • LEFTARROW THEN 

BEGIN 

SvUSi; SitiLUC SVJ SlI^Sl^-s; 

Dv<"Oi; DliwLQC EAORS; DII"0I'»'5; 

IF 3SC»DC THEN JUMP OUT; 

S|issv; oitsDv; 
End; 

IF Sc" " THEN JUMP out; 

IF SCP"*" THEN ,^UMP out; OSmCHR); 

END STREAM PROCEDURE SCANPSWD* 



36001 
36001 
36001 
36001 
36001 
36001 
36001 
36001 
36001 
36001 
36001 
36001 
36001 
36f01 



010 
020 
030 
040 
050 
060 
070 
080 
090 
100 
110 
115 
120 
130 



0014 
0014 
0015 
0015 
0017 
0017 
0017 
0019 
0019 
0020 
0021 
0021 
0022 
0024 



H 



CASE DOING OF 
BEGIN 

BEGIN % CASE Q « REQUESTING CURRENT PASSWORD 
Ir SCHEOUUINE THEN GOERRC "CHANGE "MO); 
OlOPSWDCWORK); TWXOuT(LL'WORKC0 3»30*1); 

Blackout; 

ClEAR<ICBASE]«2)j TEMPI-3; DQINGt;iU 

WAiTFoR «« vinput; 
eno case oj 

X... , , 



Begin % case i • scanning for current password 

SCANeSWDCWORKtnfACBASE]«WQRKENOADHS}i 
MATCH(ACBASE],C6Ua3*" " ) GO ERR; 

NEWPSwB(rtORK); TWXOuTCLL'WORKCO 3*28*1); 

Blackout; 
DOING »» g; 
waitfor IX vinput; 
End case i; 

*BEGIN*X*cUe '2 '^'sCANNIW'foR* NEW* PASSWORD*'**' 
SCANPSWDCWORKCn#ACBASE^n^WaRKENDADRS}; 
MATCHCAtBASE+U.CdUgS*" " ) 60 ERR; 

VfYPSWD(WORK); TWX0UT<LU#WURKC03'31»1); 

Blackout; 

DOING >«* 3; 

Waitfor »» vinput; 
ino case 2; 

BEGIN X CASE 3 - SCANNING FqR VERIFICATION 
SCANPsWDCW0RKU3«A[BASE+2a'WQRKENDADRS}; 
MATCH(ACBASE4'n«ACBA$E^2]) ELSE GO ERR; 
LlDISKREAD I" USERUOC; 

WANT Iff vozskread; 
Doing !» 4; 
End case 3; 

'begin'x case « -'users/canoe'record'in'core**'* 

MaTCH(ACBASE3.[6U2]«W0RKC2}} ELSE GO ERR; 

W0RK[23MAt6ASE*niC6M23; 

OlSKWRITE(USERLOC); 



lldiskreaoi^userbase; 
want »■ voiskreao; 
Doing •• 5; 
End case 4; 



% USERS/CANOE RECORD ZERO 



X0521- 



BEGIN X CASE 5 - PUT NEW DATE IN USERS/CANDE FILE 

WQRKt23l*DATE; 

OlSKWRlTE (USERBASE); 

Iam u o; 
End CASE 5; 

END ALL cases; 



»0521- 



3600U40 

96601200 
36001300 

36001400 
36601300 
36001600 
36001700 
3600ia00 
36601900 
360020Q0 
36002100 
36002200 
36002300 
36002400 
36002500 
36002600 
36002700 
36002800 
36002900 
36003000 
36003100 
36003200 
36003300 
36003400 
36603500 
36003600 
36003700 
36003800 
36003900 
36004000 
36004100 
36004200 
36004300 
36004400 
36004SOO 
36004600 
36004700 
36004800 
36004900 
36609 000 
36905100 
36005200 
36005300 
36005400 
36605500 
36605600 
36605700 
36005800 
36009900 
36006000 
36006100 
36006200 
START OF SEGMENT 



0024 
0024 
0025 
0025 
0025 
0033 
0035 
0036 
0039 
0039 
0040 
0040 
0040 
0042 
0046 
0048 
0049 
0050 
0050 
0051 
0051 

0051 
0054 
0058 
0060 
0061 
0062 
0062 
0063 
0063 
0063 
0066 
0069 
0071 
0071 
0072 

0073 
0073 
0073 
0076 
0080 
0083 
0084 
0089 
0086 
0086 
0086 
0086 
0088 
0091 
0092 
0092 



63 



• • 



UO TQ ExITi 

ERRI 

LIT0UTC"BA0C8DE"#n> MSGPTRI«2i; UNECLEARCLCW* At *3 j; 

EXITI 

END PROCEDURE CHANGEPaSSWORO* 



63 IS 



' • •. 



7 LONG/ NEXT 9EG 



62 



36006300 




0093 


36006400 




0095 


36006500 




0095 


36006600 




0099 


36006700 




0099 



62 IS 101 UONG# NEXT SEG 



PROCEDURE THYMECICW#A); 

BOOLEAN UCWi 
ARRAY ACOi; 

BEGIN 

UABEU dummy; 



W0RKC03 I 
WQRKCl] I 
rtaRKt23l« 
BLANKtWOR 
TWXOUTCUl 
W0RKC03 I 
TIMEOFDAY 
TWXOUTCUL 
WORK[0] I 
TIMEUSEDC 
TWXOUTCl.1 
W0RKC03 I 
TIMEUSEDC 

TWXOUTCUU 
W0RKt03 » 

TIMEU3EDC 
TWXOUTCLI. 
W0RKC03 I 
TWXOUTCLL 
lAM l» o; 

ENB OF thyme; 



» "USER IS«; BUANKCW0RKC03); 

« USERCOOE; BLANK(WQRKC13)> 

OECCONVCtt); W0RKC23I»WQRKC23&''UINE "Cdl 181303 ; 

K|;23}; 

#W0RK[03#24*CRUF)i 

» "TIME IS"; BUANKCWORKC03); 

CWORKtl3*TIMECQNVCTIMECl)#TRUE)3; 

*woRKi;o3#i8*CRiF); 

» "C&E use; BLANKCW0RKC03)i 

WORK C13#TIMEC0NVCPTIME# FALSE)}; 

*WORKt03*33n); 

« "EXECUTS"; BLANKCW0RK|;03); 

W0RKC13*TIMEC0NVCETIME^FALSE)); 

#WORKt03*33'l); 

» "10 TIME**; BLANK(W0RKC03); 

WORKci3#TlMECONV(IOTOTfFALSE)3; 

*W0RKC03*33M); 

» date; 

*WORKC03*8*23J 



37001000 
37001100 
37001200 
37001300 
37001400 
37S01500 
370015S0 
START OF SEGMENT 
37001600 
37001700 
37001710 
37001720 
37§01800 
37901900 
37902000 
37802100 
37002200 
37Q02300 
37002400 
37002500 
37002600 

37002700 
37002800 
37002900 
37003000 
37003100 
37003200 
37S03300 
37003400 
64 IS 49 LONG* 



0061 
0061 
0061 
0061 
0061 
0061 

0061 

********* 

0000 
0002 
0004 
0009 
0010 
0012 
0014 
0017 
0018 
0021 
0023 
0025 
0027 
0030 
0031 
0034 
0036 
0038 
0039 
0041 
0042 
NEXT SEG 



64 



X***************«r************** ***************************************** 

PROCEDURE CARRIAGE(LCW»A}; BOOLEAN LCW; ARRAY ACO]; 
x*********************************************************************** 

BEGIN 
REAL Ti 

LABEL ERR#EXIT; 
CASE DOING OF 
BEGIN 

BEGIN X CASE I SYNTAX CHECK 

Ir DEVICE NEO TELETYPE THEN 60ERR("CC "»563; 

TEMPlni; WRlTEASTERISKl-TRUEi 



START 



38000000 




0061 


36600100 




0061 


38000200 




0061 


38000300 




0061 


38Q00400 




0061 


OF SEGMENT 


******* 


38000500 




0000 


3B000600 




0000 


38000700 




0000 


38000710 




0000 


38000720 




0000 


38000800 




oooe 



65 



If A£SREQI*BA5E-ACBASE]J»tlail5J GEQ I THEN 
BEGIN 

MATCH(ACSREG|aSREG*n.C6l42]*"L0N6 
MATCH(ACSRCG].t6l423*"5H0RT ") Tl»0 

END 

Else 

BEGIN 

ACSREGJIs^CC «i 
ERRI G0ERRCACSREG]#8); 

ENOi 
If (T«1 AND CCLONG? OR 
BEGIN 

lAMloO; GO TO exit; 
ENDi 

A[Base3»«t; tempisu 
uldiskread »« USERUOC; 
wanti«vdiskread; 
DOING I* i; 
End; % case o 



«) Tl»l 

ELSE GO 



ELSE 

TO err; 



(TsO AND NOT CCLONG) THEN 



X USERS/CANOE RECORD LOCATION 



BEGIN X CASE 1 - USERS/CANDE RECORD IN CORE 
CCUONGBIT «» REALCACBASE]«1); 
WoRKClUl»QPTIONBITS; X UPDATE RECORD 
DISKWRITECUSERLOO; X REPLACE USErS/CANOE RECORD 
6CCOM(LL*USERCODE*AC8ASE3); 
Iam !■ o; 
End case i; 

END ALL cases; 



EXITI 

END PROCEBURE CARRIAGE CONTROL; 



38000900 T 0011 

36001000 T 0014 

38801100 T 0014 

38001200 T 0019 

38Q01300 T 0026 

38001400 T 0026 

38001500 T 0026 

38001600 T 0028 

38001700 T 0029 

38001800 T 0036 

38001900 T 0036 

38Q02000 T 0040 

38002100 T 0041 

38902200 T 0042 

38002300 T 0042 

36602400 T 0044 

36002500 T 004S 

38002600 T 0046 

38002700 T 0047 

38002800 T 0047 

38002900 T 0047 

36003000 T 0047 

38003100 T 0051 

36003200 T 0052 

38003300 T 0056 

38003400 T 0057 

38003500 T 0058 

36003600 T 0059 
START OF SEGMENT ********** 

66 IS 3 LONG* NEXT 5EG 

38903700 T 0059 

38003800 T 0060 

65 IS 63 LONG* NEXT 5EG 



66 
65 



X*********************************************************** 
PROCEDURE CHNGNAMECLCW#A); BOOLEAN LCw; ARRAY ACOJ; 
X*********************************************************** 

BEGIN 
STREAM PROCEDURE NEWNAMECA); 

BEGIN 

on»A; ds«»20lit"enter your new name-"; 
END stream; 



START 



39000000 
39900100 
39000200 
39000300 
39000400 
OF SEGMENT 
39000500 
39000600 
39000700 



T 0061 

T 0061 

T 0061 

T 0061 

T 0061 
********** 

T 0000 

T 0000 

T 0003 



67 



STREAM PROCEDURE savename(f* T» eadrs ); VaLue eadrs; 

begin 
LOCAL sv*DVJ label l; 

siiwf; diiwt; ds»»lit"0«; dsuislit" «; dii»dJ"15; 

li if sc*" " then begin sj»»sl*i; go l end; 

15CIF SC-LEFTARROW THEN 
BEGIN 



39000600 


T 


0003 


39000900 
39001000 
39001100 
39Q01200 
39001300 
39001310 




0003 
0004 
0004 
0007 
0009 
0010 



END 



svt"Sii sii'iLOC svj siMSUs; 

DVt«DU DIK^LOC EAOKS; DIt«0I + 5; 
IF 3SC»«0C THEN JUMP OUT; 
SII«SV; DII»DVi 

END' 
DSI«CHR); 

stream; 



39001320 
39001330 
390013«0 
39801350 
39001360 
39001370 
3900U00 



0010 
0011 
0012 
0013 
0013 
0013 
0015 



LABEL 



BEGI 
BEGI 



END 
BEGI 



END 
BEGI 



END 
END 



exit; 

if scheouwine then goerr( "change «#40); 

case doing of 

N 

N % CASE 0, 

NEWNAMECWORK); 

TWXOUT(Ll#WORKC0 3#20#NOCRUF); 

DOINGmi; WAITFORJ'VINPUT; 

CASE o; 

N % CASE 1, 
SAVENAMECW0RKtn#AtBASE3#W0RKEN0ADRS); 
D0INGI«TEMPt«2J 

ll0iskreadi»userl0c; 
wanti»vdiskread; 

CASE i; 
N » CASE 2, 
M0VE(2«MQR0S«AC6ASE]'MQRKC4]); 
DISKWHITECUSERUOOJ 

lAM «• o; 

CASE 2; 

Alt cases; 



EXITIEND CHANGE NAME; 



39001500 T 0015 

39001600 T 0015 

39001700 T 0023 

39001800 T 0023 

39001900 T 0023 

39002000 T 0023 

39002100 T 0024 

39002200 T 0026 

39002300 T 0028 

39002400 T 0028 

39002500 T 0028 

39§02600 T 0030 

39002700 T 0032 

39902800 T 0033 

39002900 T 0034 

39003000 T 0034 

39Q03100 T 0034 

39003200 T 0037 

39*03300 T 0040 

39003400 T 0041 

39003500 T 0041 
START OF SEGMENT ********** 

68 IS 4 LONG* NEXT SEG 

39003600 T 0042 

67 IS 45 UONG# NEXT SEG 



68 
67 

8 



X*********************************************************************** 

PROCEDURE MOf«lTORRCUCW#A); BOOLEAN UCW; ARRAY ACOj; 

X*********************************************************************** 

BEGIN 

REAL PC#W080; 

LABEL exit; 
TEMI? |«i 3; 
CASE DOING OF 
BEQIN 

X •..,*«... •...#* ,f ..,«.« ..*...,.•••*,••*.• •• 

BEGIN % CASE " SYNTAX CHECK 

fC l». AC SReQ»«BASE''ACBASeJ 3,U8»153; X PARAMETER COUNT 
WORD I" AC5REQI«»SREG*13; X FIRST PARAMETER 
If PC NEO 1 THEN X WRONG NUMBER OF PARAMETERS 
BEGIN 
IF PCaO THEN GaERR("FlLENAM"#6); X FILE NAME REQUIRED 



40000000 T 0061 

40000100 T 0061 

40000200 T 0061 

40000300 T 0061 

40000400 T 0061 
START OF SEGMENT *******i 

40000500 T 0000 

40000600 T 0000 

40000700 T 0000 

40000800 T OOOl 

40000900 T OOOl 

40001000 T OOOl 

40001100 T OOOl 

40001200 T 0004 

40001300 T 0006 

40001400 T 0007 

40001500 T 0007 



69 



G0ERR(W0RD#8); X lULEGAt PARAMETER 

ENOi 
If W0RD,[3«33"0 then G0ERR(W0RD*8); X NOT A FIUE NAME 
IF W0R0»t3l3] GTR 6 THEN QQERRC W0RD#42 ) ; % 6 CHARACTERS MAX 
If FlNOAWORDCwORD*KESWROTAauEtU*NUMOFRESNROS) NEQ THEN 
G0ERR(W0R0'29)J 

AtBASEJ »■ WORD Ip WORO.C6U23; X STORE FRE NAME 
AtBASE+n tw ACBASE+23 %m OJ % RESET EVENTS COUNTER AND ERRi 
FlNDCuL&lAHC33Mlt7]»0#W0R0fUSERC00E«USERC0DE}J 
FIN0CUU&IAMC33I4U7],0*W0RD,[6«363*USERC00E#USERC0DE); 
DOING l« Xi WAITFOR t» lAM^ 

End; X CASE 



IOC. 



BEQIN X CASE 

If eventscu 

IF ACBASE+U 
If AC8ASE+23 

Else aCbase* 

If ACBASE+23 
If ACBASE't'l] 

begin 
makefilec 

0QINQI»2; 

ENOi 
EnDJ X CASE 



1 «■ RESULTS OF DIRECTORY SEARCH 
GEQ THEN X FILE WAS IN DIRECTORY 
•»0 THEN X THIS IS FiRST FILE FOUND 
•0 THEN AtBASE+n»'AC8A5E3 X SOURCE VERSION 
nt«A(BA$E3,C6t363; X OBJECT VERSION 
l«ACBA5E*23*l LSS 2 THEN WAITFORlslAM ELSE 

neq q then goerrc acbase'*-n ^ 3 } else 

ll&iamt 3314117 3 #1#acba5e3*userc0de#8, 200); 
waitfori»iam; 



I 



BEGIN X CASE 
If EVENTSCn 
iLDISKREADtP 
DOING I" 3; 

End; X CASE 



2 • ADJUST NEW FILE HEADER 
■ THEN GOERHC'NO DISK"M6); 
AtBASE*l3l«EVENT5C23; X HEADER ADDRESS 

WANT »• voiskread; 

2 



BEGIN X CASE 
W0RK|;03l«l0 

W0RKt33.C2ll 
W0RKt73 l« - 
WoRKC93,t43» 
OlSKWRlTECAt 

lldiskread«» 
Doing t* 4; 

EnDJ X CASE 



3 - HEADER IN CORE 
& 30C30I36I123 & 300 J i5 « 33» l53 & lOtl»34«l43; 
QJ I* 7i % SAVE FACTOR 
i; X EOF POINTER 
53 II 20; X NUMBER OF ROWS 
BA3E+13); X REPLACE HEADER 
USERLOC; X USERS/CANDE RECORD ADDRESS 

WANT i» voiskread; 

3 



Begin x case 

MONITQRBIT » 
WQRKC123 I* 
DISKWRITE(US 
IaM \m 0; 

End; x case 
END All cases; 



4 - USeRS/CANDE RECORD IN CORE 

» true; 

A[BASE3; X MONITOR FILE NAME 
ERLOO; X REPLACE RECORD 



EXITI 

END PROCEDURE 



monitqrr; 



40Q01600 
40001700 
40001600 
40001900 
40002000 
40002100 
40002200 
40002300 
40902400 
40002500 
40002600 
40002700 
40002600 
40902900 
40903000 
40003100 
40003200 
40903300 
40003400 
40003500 
40003600 
49903700 
40003800 
40003900 
40004000 
4Q904100 
40004200 
40004300 
40004400 
49004500 
40004600 
40004700 
40004800 
49004900 
40005000 
40005100 
40005200 
40005300 
40905400 
40005500 
40905600 
40005700 
40805800 
49005900 
40806100 
40006200 
40006300 
40006400 
40006500 
START OF SEGMENT 

70 IS 6 LONG 
40006600 
49006700 

69 IS 126 LONG* 



0015 
0019 
0019 
0025 
0032 
0034 
0039 
0041 

0045 
0048 
0053 
0054 
0055 
0055 
0055 
0056 
0058 
0061 

0065 
0070 
0078 
0078 
0082 
0083 
0083 
0084 
0084 
0084 
0092 
0095 
0096 
0097 
0097 
0097 
0101 
0103 
0105 
0107 
OUl 
0113 
0U4 
0115 
0115 
0U5 
0117 
0U9 
0122 
0123 
0123 
********* 

NEXT SEQ 

0124 

0125 
NEXT 5EG 



70 
69 



♦ • 



AND NUMBER 



PROCEDURE SETlT(tCW,A)J BOOLEAN LCWj ARRAY ACOJi 

BEGIN 

REAL Ne,PTR*WORD#MAXPTR#TYPE»SETBIT*x; 

CABEU case2#exit; 

DEFINE ERRCERR1#ERR2*ERR3)» 

H IT P T Kl 

ERRSw t» ERRl & £RR2tll43t53; MSGPTR l« ERR3; 
lAM i« VERRORi GO TO EXIT; 
END*; 
X,. ,,.. ...ft.,, 

CASE DOING OF 
BEGIN 
X,.,,, ,,....,.,...,,,. ,...,.,. , 

BEGIN X CASE - SYNTAX ANALYSIS 

PTR»»WORKADRSi MAXPTRmwORKENDAORs' NCI»o; X SETUP 
While CTYPEt*SCAN(PTR*W0R0»''9''»MAxPTR#X)) NEQ S UO 
BEGIN 

IF TYPE NEQ 1 THEN X NOT ALPHA STRING 
BEGIN 
ERR(WQHO#WORO,Cll53#a); X INVALID IF NOT SPO 

end; 

NC »>» NC + U WQRO.Cl'SJ »» O; 
MATCHCWaRO^''SET •• ) SETBIT t»» 1 
ELSE MATCHCWORO»"RESET " ) SETBlT 
ELSE MATCHCW0R0*"C0NCISE") 

ELSE MATCHCWORD#"HELPFUL") 

ELSl MATCHCW0RD#''QUICKL0'') 

ELSE MATCHCWORD^wQUICKBT") 

ELSE MATCHCW0R0#"N0ST0P ") 

BEGIN nqstopi»8oolean<S£Tbit); iamibo; go exit; 

ELSE MATCH(W0R0*»'ALL0WM5'») ALLOWMSGBI T I«SETBI T 

ELSe MATCHCWOR0#''FREEFIL") UNLOCKTOGGLEI-SETBIT 

X 

X 

ELSE MATCHUORO^^MONITOH") GO TO CASE2 X SET/RESET MONITOR FILE 

ELSE ERR(W0RD*7#8); 

END WHILE statement; 

NC LSS 2 THEN ERRC ♦♦INCMPLT"* 7#8) ; 

SCHEOULINE THEN 

BEGIN 

lAMMO; wrjtea5Teriski»true; 

END ELSE 
BEGIN 
LlOISkREAD »■ USERLOC* X U^ERS/CAnOE RECORD ADDRESS 

Want t« vdiskreaoj 

doing i« i; 

End; 

End case o; 

'begin'x case I - users/canoe record'in core 

woRKCin i« oPTiONBiTs; « put new settings in record 

DISKWRITECUSERLOO; X REPLACE USERS/CANDE RECORD 
lAM in O; 
WRITEASTERISK |a TRUE; 



START 



t« 

CONClSEBIT I- 
HELPFUL8IT i» 
QUICKLOGBITI* 
QUICKBYEBITI- 



SETBJT 
SETBIT 
SETBIT 
SETBIT 



END 



IF 

If 



41000000 


r 0061 


419O01Q0 ■ 


r 0061 


41000200 ' 


r 0061 


41000300 ' 


r 0061 


41000400 - 


r 0061 


OF SEGMENT ' 


k******** 


41000500 ' 


r 0000 


41000700 1 


r 0000 


41000600 ' 


r 0000 


41000900 ' 


r 0000 


41001000 ' 


r 0000 


4100UOO ' 


r 0000 


41004700 " 


r 0000 


410Q4900 ' 


r 0000 


41005000 ' 


r 0000 


41005100 " 


r 0000 


41005200 ' 


r 0000 


41005300 ' 


r 0000 


41005400 1 


r 0003 


41005500 1 


r 0006 


41005600 ' 


r 0006 


41005610 1 


r 0007 


41005700 1 


r 0007 


41005710 1 


r 0012 


41005730 1 


r 0012 


41005800 1 


r 0015 


41805900 1 


r 0017 


41006000 1 


r 0022 


41006100 1 


r 0028 


41006200 1 


r 0034 


41Q06300 1 


r 0040 


41S06400 1 


r 0046 


41006410 1 


r 0047 


41906500 1 


r 0056 


41006600 1 


r 0059 


41006700 1 


r 0066 


41006800 1 


r 0066 


41006900 1 


' 0066 


41007100 1 


r 0070 


41007200 1 


r 0077 


41007300 1 


r 0077 


41007310 1 


' 0084 


41007320 1 


r 0084 


41007330 1 


' 0085 


41007340 1 


r 0088 


41007350 1 


• 0088 


41007400 1 


- 0088 


41907500 1 


0090 


41007600 1 


' 0091 


41007650 1 


' 0091 


41007700 1 


• 0091 


41007800 1 


' 0092 


41007900 1 


0092 


41008000 1 


0092 


41008100 1 


■ 0093 


41008200 1 


0097 


41008300 T 


0096 



71 



End case i; 



Begin x case 2 • monitor set/reset reouest 

CASE2» IF NOT BOOLEAN(SETBIT) THEN X RESET MONITOR 
BEGIN 

M0NIT0R8IT IB false; 
lAM I* Oj 

writeasterisk i* true* 

go to exit* 

end; 

LLDISKREAD I* USERLOC; X U5ERS/CAN0E RECORD ADDRESS 

Want »» voiskread; 

DOING >» 3' 
EnO case 2i 
X.,.,...,. ,, ,,, ,,. 

BEGIN X CASE 3 - USERS/CANOE RECORD IN CORE 

IF WORKtUJsO THEN ERRC "M0N,FIL"*7»2 ) i % NO FILE NAME LISTED 
A[BASE3 l» WORKjig]; % SAVE MONITOR FILE NAME 
FIND<LL&IAMC33I41I73»0>ACBASE]#USERC0DE*USERC0DE); X SEARCH 
TEMP in 2J DOING l« Hi WAITFQR I «s lAMi 

End case 3; 

X ,.♦ .....#.....#..,. ..*.,. 

BEGIN X CASE 4 - RESULTS OF DIRECTORY SEARCH 

IF EVENTSC13 lEQ THEN ERR (A XBASE 3* 6* 2)i X NOT ON DISK 

MQNITORBIT l« true; 

LlT0UTCACBASE3tN0CRLF); LITOUTC MONITR^^CRLFj; 

Iam la o; 

End case m 



END ALL CISES; 



EXITI 

END PROCEDURE SETITi 



41008400 
41008500 
41008600 
41008700 
41008800 
41008900 
41009000 
41009100 
41009200 
41009300 
41009400 
41009500 
41009600 
41009700 

. 41009800 
41009900 
41010000 
41010100 
41010200 
41010300 
41010400 
41010500 
41010600 
41010700 
41010800 
41010900 
41011000 
41011100 

. 410U200 

41023300 

START OF SEGMENT 

72 IS 6 LONG 

41023400 

41023500 

71 IS 145 LONG 



T 0100 

T 0100 

T 0100 

T 0100 

T OlOl 

T 0102 

T 0104 

T 0105 

T 0107 

T 0107 

T 0107 

T 0109 

T Olio 

T OUO 

T Olll 

T Olll 

T Olll 

T one 

T 0119 

T 0123 

T 0125 

T 0126 

T 0126 

T 0126 

T 0132 

T 0134 

T 0136 

T 0137 

T 0138 

T 0138 
********** 

# NEXT SEG 
T 0138 

T 0139 

* NEXT SEG 



72 
71 



X******************************************************************** 

PROCEDURE SSFlLECLCWfA); BOOLEAN LCW; ARRAY AtOj; 

X******************************************************************** 
BEGIN I PRINT CONTENTS OF SPECIFIED FILE ON TERMINALS 

REAL i«lin«pc«reks<linmax^word«maxsreq; 



*** 



*** 



DEFINE sPOCNTRL • A CBASE+23 *t 
LABEL ExITi 
CASE DOING OF 

BEGIN 

BEGIN X CASE " SYNTAX ANALYSIS 

IF LL NEQ THEN GOERRCSSFILE ''n3); 

SrEG !■ BASE - AC6ASE]; 

PC I* *ESREG3fU8ll53; MAXSREG I* SREG ♦ PCi 

ACBASe+33 I» 999; % FLAG FOR LINE NUMBER INPUT 

FOR SRIG t» SREG+l STEP I UNTIL MAXSREG 00 

BEGIN X PICK UP THE PARAMETERS 

W0R0I«»ACSREQ3; 



X0523- 



42000000 T 0061 

42000100 T 0061 

42000200 T 0061 

42000300 T 0061 

42000400 T 0061 
START OF SEGMENT *******> 

42000450 C 0000 

42000500 T 0000 

42000600 T 0000 

42000700 T 0000 

42000B00 T 0000 

42000900 T 0000 

42001000 T 0008 

42001100 T 0009 

42001200 T 0012 

42001300 T 0014 

42^01400 T 0018 

42001500 T 0018 



73 



m # 



K 



"'8); 



G0CRK(M0R0#8}i 



X0501- 
FIXUSERCi*A*EXn#FAUSE) EUSE 

X0501- 
X0501- 



IF W0RD.U»5]»0 THEN X LINE NUMBER GIVEN 
BEGIN 

IF WORD 6TR MAXLINE5 THEN GOERRCNOT ON 
IF tINECW0RD*UCLOC3'«O THEN GOERRCNOT ON 

ACBASE^3J t" word; 

CNO 
ELSE IF WORD.C3t33 GTR THEN % FILE NAME 
BEGIN 

IF (REKSUREKS+n GTR 2 THEN 
AtBASE+REKSJ In W0R0.t6l423| 
CNO 
ELSE IF WORD EQL »/♦• THEN 

IF SREG ♦ 2 LEO MAXSREG THEN 
ELSE 

GOERR (WORD*B); 
END FOR STATEMENT; 
IF REKS NEO 2 THEN QOERRCFIL NAMw#8)* 

FlNDCLL&IAMt33Ull7 3#0#ACBASE*n#ACBA5E*2]*''SITE "Ji 
TEMP l» 4; DOING !■ X) WAITFOR »• IAM; 

End case o; 
'begin'x case 1 - results'of'oirectory'search 

If EVENTSC13 L5S THEN X NOT ON DISK 
BEGIN 

W0RKC0 3l»ACBASE + n; W0RKtUI«»ACBASE + 23; 
WORKCaSla" NOT ON"; WORKC33 I«"DISK "; 
FOR lt9Qtl»2$3 00 BLANK(WORKCn); 

TWXOUTCLL* WORK CO] #32*1); 
lAM Im O; 

60 exit; 

END IF NO file; 
LL0ISKSEA0lffEVENTS[23ai8U53; X HEADER ADDRESS 

Want i« voiskread; 

DOING l« 2; 

End case u 

BEGIN *X 'case T-*HEADER* IN 'core 

If C$PiCNTRL»«WORKC73+n QTR CII*W0RKC8 Jx3) THEN 
If (ACBASE3I*W0RKC103)'«0 OR SP0CNTRL«0 THEN X NO 

BEGIN lAMI^O; GO EXIT; END; 
AtBASE+nisO; % INITIALIZE SEGMENT POINTER 
LlDISkREAO I« ACBASE3; X ADDRESS OF FIRST SEGMENT 

WANT «i» voiskread; 

DOING i« 3; 

End case 2; 

'sESlNicASE T' *REAO 'oiSKFILE* " * 

AtBASE+n l« AtBASE + n * li % INCREMENT SEGMENT COUNTER 
RgKSUlF <SPOCNTRLI«SPOCNTRL-3) GE« THEN 3 ELSE S+SPOCNTRL' 
tiN Xm U LINMAX t^ MAXLINES; 

If AC8ASE+33 lSS 999 THEN LlNJ»LlNMAX l»A[BASE*3] ; X NUMBER GIVEN 
FOR LINI»LIN STEP I UNTIL LINMAX DO IF LlNECLIN#UCLOC 3 NEfi THEN 
FOR Il«l STEP 1 UNTIL REKS DO 

TWXOUTCLIN#WORKC003*72#n ELSE 
TWX0UTCLIN*W0RKtl03*72vl) ELSE 

TWX0UTCLIN*W0RKC2Q3#72tl); 
IF SPOCNTRL LEO THEN X END OF FiLE OR DISK ROW 



SPOCNTRL»«i; 
RECORDS 



IF !•! THEN 

IF I»2 THEN 

IF i«3 THEN 

SPOCNTRL LEG 



42001600 


T 0019 


42001700 


T 0020 


42001800 


T 0021 


42Q01900 


T 0028 


42602000 


T 0036 


42002100 


T 0037 


42to2200 


T 0037 


42902300 


T 0039 


42002400 


r 0040 


42002500 


r 0046 


42Q02600 


r 0049 


42002700 1 


» 0049 


42002710 1 


: 0050 


42002780 ( 


S 0055 


42002785 ( 


: 0056 


42002800 


r 0061 


42002900 ' 


r 0062 


42003000 


r 0069 


420Q3I00 ' 


r 0073 


42003200 ' 


r 0076 


42003300 ' 


r 0076 


42003400 ' 


r 0076 


42003500 ' 


r 0076 


42903600 ' 


r 0077 


42003700 • 


r 0078 


42003800 1 


r 0082 


42Q03900 ' 


r 0084 


42004000 ' 


r 0098 


42004100 1 


r 0099 


42004200 1 


r 0100 


42004300 1 


r 0101 


420044Q0 1 


r oioi 


42004500 1 


r 0103 


42004600 1 


r 0104 


42004700 1 


r 0104 


42004800 1 


r 0105 


42004900 1 


r 0105 


42005000 1 


r 0105 


42005100 1 


r 0111 


42005200 1 


r 0115 


42005300 1 


r 0117 


42605400 1 


r 0119 


42605500 1 


r 0120 


42005600 1 


r 0121 


42005700 1 


r 0122 


42005800 1 


r 0122 


42605900 1 


- 0122 


42006000 1 


r 0122 


42006100 1 


' 0125 


42006200 1 


r 0132 


42006300 1 


' 0133 


42006400 1 


' 0137 


42006500 1 


' 0140 


42606600 1 


r 0142 


42606700 1 


• 0145 


42006600 1 


• 0148 


42606900 T 


0156 



BEGIN 

IF TEMP NE« 4 THEN % RETURN TQ "H1THERE'» 

BEGIN 

IAMI«VHELLOi D0INGI»7; 

CNO 

ELSE 

lAMtnO; 

60 TO exit; 

end; 

LlDISkREAD ««• AtBASEJ ♦ AtBASE + lJ; X NEXT SEGMENT ADDRESS 

mant is voiskread; 
End case a 

END ALL CISES; 



EXITI 

END PROCEDURE SSFILE/ 



»0523- 






42007000 P 


01S8 




X0523- 






42007010 C 


0158 




X0523- 






42007020 C 


0159 




X0523- 






42007030 C 


0159 




»0523- 






42007040 C 


0161 




*0523- 






42007050 C 


0161 




X0523- 






42007060 C 


0161 




X0S23- 






42007070 C 


0162 




X0523- 






42007080 C 
42907l00 T 
42007200 T 
42007300 T 
42007400 T 


0163 
0163 
0165 
0166 
0167 




START 


01 


^' SEGMENT ********** 


74 




74 


IS 


5 LONG* 
42007500 T 
42007600 T 


NEXT SEG 
0167 
0168 


73 




73 


IS 


174 LONG* 


NEXT SEG 


a 



PROCEDURE EQUATE(LCW,A)i BOOLEAN LCW; ARRAY ACOj; 
%******i,***i,***************************i,******************************** 

BEGIN 

REAL I*K,»iaH0*UNlT*TYPE#NAM*NAMl*NAM2*VER8V#MAXSREQ*EUVALi 

BOOLEAN DSK*BKUP#EQLT0S*FILT06*LIBTQG*CHECKTYPE#GU0T*Q1#«2; 

BOOLEAN formtqg*nola8El#fastog*slowtog*eutog; 

LABEL ERR# CHECK* EXIT; 

DEFINE ENTRY » ACBA5E+1]#* THISESP • ACBA5E+23#; 

X. 



STREAM PROC^DUR^ ^IL^IOC ADRS* ARAY»MAX); VALUE ADRS*MAX; 

X.... ••.,••.••,•,,•••.,,•,,.... •,•..«.,•, ,.....•,, 

BEGIN 

SIliiAORSj DII«ARAY) DIIwDI*U 

MAXCIF SCsALPHA THEN BEGIN DS»»CHR; TALLY »"TALLY+1; END 
ELSE DS|«LIT" "); 

adrsi»tally; sh^loc aors; si»»si*7j oii»aray; D5»"Chr; 

END STREAM PROCEDURE FILEID; 



43000000 T 0061 

43000100 T 0061 

43000200 T 0061 

43900300 T 0061 

43Q00400 T 006l 

START OF SEGMENT *******' 

43000500 T 0000 

43000510 T 0000 

43000600 T 0000 

43000700 T 0000 

41000800 T 0000 

43000900 T 0000 

43001000 T 0000 

41001100 T 0000 

43001200 T 0000 

43001300 T 0000 

43001310 T 0003 

43001400 T 0004 

43001500 T 0005 



7b 



CASE DOING OF 

BEGIN 

BEGIN X CASE < 

LABEL wait; 



IF NOT CONTINUEBIT THEN X FIRST CALL ON THE ROUTINE 
BEGIN 

cqntinuebit !■ true; 

FlRSTESPl^THlSESPlsESPU X SAVE FIRST ESP RECORD ADDRESS 
lNTRYl-0; TEMP»b3; CLEAR(Lt03*29); LC143 I<i3''l4''; 
SREG is base - ACBASE]; MAXSREG U SREG * AXsREQ J » C18I 15]; 
END X IF FIRST CALL 



START 



43001600 




0005 


43001700 




0006 


43001800 




0006 


43Q01810 




0006 


OF SEGMENT 


********** 


43001900 




0000 


43002000 




000 1 


43002100 




0001 


43002200 




0003 


41002300 




0008 


43002400 




0013 


43002500 




0016 



76 



• # 






"#1)* GO wait; 
NUMBER OR SPEC CHR 



EUSE 

BEGIN 

Base i» base + 3; x shift up to save stack VAtutJs 

scann£r(wqrkadrs«ac*3'ucw«w0rkenda0rs}; 

Base i» cii»8ase) -3; % re-adjust base for this procedure 

If B00UEAN(ACntCl7«n) then % ERROR DURING SCAN 

BEGIN 

WQR0 I* AtI+23; MSGPTR «» 65; GO TO ERR; 

ENOi 
If (TYPEl»Atn,t3»33) NEQ I THEN X NOT A VERB 

BEGIN 

IF TYPE"0 OR TYPE»5 THEN GO WAlTi X COMMENT OR NULL 

IF TyPE"4 THEN X SSMSG 
BEGIN 

BASEi»i; ssmsg; basei^i-s; litoutc* 
end; 

WOROJailF TYPE»2 THEN Atl + l] ELSE AtI+23; X 

MSGPTR »■ 65; GO TO ERR' 

end; X IF NOT A VERB 
IF CVEaBVI'»ACI + l].C40l8])»VEXECUTE THEN 
MATCHCVERBTABl,EtAtUUtt9l9JJ,C6l42]*''C0MPlLE''J ELSE 

BEGIN 

PARAM |» An*UtC18U53*U TEMp |» i; 

MOvE(PARAM*l,WORDS#Atl3*ACBASE3); X SHIFT LEFT FOR "EXECUTE" 

WANT l» VERBV; IAM t« 0* CONTlNUEBlTI»FALSEi 

DOING i« o; 
GO TO exit; 

END* 
IF VERBV 
BEGIN 

WORD in VERBTABLECACI*UtC9|9]3; 
GO TO ERRJ 

end; 

If ENTRYwO THEN X STARTING NEW SEGMENT 
BEGIN 

DlSKWAlT(l#Lf30^THlSE5P); 

LC293JisESPU X ESTABLISH LINK TO NEXT SEGMENT 
01S«WAIT(0*L*30*THI5ESPJ; 
C|.EAR(LC0]#29); Lt H3 "S^U"; 

THISESP»« ESPi; X ADDRESS OF NEXT SEGMENT TO BE USED 
END X IF ENTRY » 

Else oisKWAiT(i#L*30f thisesp); x recover previous values 

SrEG I» I + i; MAXSREG »» SREQ+ACSREG3.tl8U53; 

End; x if not the first call 

X ..t.* SYNTAX CHECK 

unit I>» 12; MSGPTR l« 8; FILTOGJwTRUEi EUVAU>»*i; X 

1 STEP I UNTIL MAXSREG 00 
INPUT STRING 



NEQ VEQUATE THEN » WRONG VERB 

MSGPTR Is 651 



FOR SRE6 
BEGIN 
LABEL 



l» SREG ♦ 

x examine 
alph; 



CHECK t«t(t»t*tt** 

INITIALIZE VALUES 



.NUMERIC: 



X , ....,.,,, 

WORD >" ACSREG3; 
If QUQT then * QUOTED STRING 
BEGIN 

IF QUQT AND (EOLTOQ OR LIBTOG) THEN X ALLOW QUOTED STRINGS 
BEGIN 
FILEIDC5CANPTRCSREG-SBASE3*W0RD*7); 



41002600 

43Q02700 

49002800 

43002900 

43003000 

43003100 

43003200 

43003300 

43003400 

43003500 

43003600 

43Q03700 

43003600 

43003900 

43004000 

41004100 

41004200 

41004300 

43004400 

43004500 

43004510 

43004600 

43004700 

43004800 

43004900 

43Q0S000 

43005100 

43005200 

43005300 

43005400 

43005500 

43005600 

43005700 

43005800 

43005900 

43006000 

43006100 

4S006200 

43006300 

43006400 

43006500 

43006600 

43006700 

43006800 

43006900 

43007000 

43007100 
43007200 
43007210 
START OF SEGMENT 
43007300 
43007400 
43007410 
43007500 
43007600 
43007605 
43007610 



0016 
0016 
0017 
0018 

0020 
0022 

0023 
0024 
0029 
0029 
0031 
0031 
0034 
0034 
0035 
0041 
0041 

0045 

0048 

0046 

OOSl 

0056 

0056 
0061 

0064 
0068 
0068 
0071 
0071 
0071 
0072 
0075 
0078 
0078 
0079 
0080 
0082 
0084 
0087 
0089 
0091 
O091 
0094 
0096 
0098 
0096 

0102 
0106 

0106 
********* 

0000 
0000 
0001 
0001 
000 1 

0003 
0003 



77 



msqptr I» 66; 

I t» SCANPTRCSREQ*SBASE3i SHE6 l« SREG ♦ U 

WHIUE SREG tbS MAXSREG AND AC SREG 3 , C6 142 ] NE« "•"' DO 

SREG te SREG * U 

K 19 SCANPTR[SREQ"SBASE3; 

IF AC5REG3,C6U23 NEO ""♦• OR 

<Ka33ll53-l,C33«j53>x8+(K,[30l3]"l,C30l33) GTR 7 THEN 

GO TO ERRi 

GO TO auph; 

END ELSE GO TO ERR; 
END X IF QUOT 
X »tf .•.,..,.,.,»..,•♦.,#.,.»..,..,♦«# .,...,.«,..,.»♦, 

Else if if<0RDtCii93"0 then x unsigned number 

BEGIN 

IF EUTOG THEN 

BEGIN 

IF (EUVALlsWORO) GTR 19 THEN GO TO ERR; 

END 
ELSE GO TO err; 
ENO X IF UNSIGNED NUMBER 

X ALPHA,..,. , •.,,*.,, 

ELSE IF W0RD«C3I33 GTR THEN X ALPHA STRING 
BEGIN 
ALPh» WORB »« (NAMI»W0R0),C6I42J; 

IF FILTOG THEN X LOOKING FOR INTERNAL NAME 

BEGIN 

FIlEI0CSCANPTRCSREG-SBASE3#lCENTRY+43*63); X INTERNAL NAME 

FILTOG «• false; 

END X IF FILTOG 
ELSE IF EfitTOG THEN X """ PRECEEOED THIS WORD 

BEGIN 

L.CENTRY + n»»WORO; 

NAM2««NAM; LCENTRY3»»0; X ASSUME ENTRY IS FID 

EOLTOG I* N0T(CHECKTYPEI»TRUE); 

IF QUOT THEN 

BEGIN Q2IWTRUE; quotiwfalse; end; 

END X IF EQLTOG 
ELSE IF LieTOG THEN X "Z" PRECEEDED THIS WORD 
BEGIN 

LCENTRY3IBLCENTRY+13; NAMil»NAM2; Q1I»Q2; 
LCENTRY + 13MW0R0; NAM2I«NAM; 
LI8T0G »» false; 
IF QUOT THEN 

BEGIN Q2t»TRUE; quotiwfalse; eno; 

END X IF LIBTOG 
ELSE IF CHECKTYPE THEN » CHECK HARDWARE TYPE 
BEGIN 

MATCH(WORD*"BACKUP "3 BKUP»»TRUE 
ELSE MATCHCWORO»"BACK " ) 
BEGIN 

IF SREG LSS MAXSREG THEN 
IF A[5REG*l3a3l33«2 THEN 

MATCHCAt5REQ*UtC6»423#''UP "3 

BEGIN 

bkupiwtrue; sreg»»8reg*i; 

END! 
END X IF "BACK UP" 



4J007615 


T 0005 


43007620 


r 0006 


43007625 


r 0009 


43007630 


r 0013 


4$00763S ' 


r 0015 


43007640 " 


r 0017 


43007645 l 


r 0019 


43007650 " 


r 0024 


43007655 ' 


r 0027 


43007660 ■ 


r 0027 


43007662 ' 


r 0030 


41007664 ' 


r 0030 


43007666 1 


r 0030 


43007668 " 


r 0032 


43007670 • 


r 0032 


43007672 ' 


r 0032 


43007674 1 


r 0033 


4J007676 1 


r 0037 


43007676 1 


r 0037 


43007700 1 


r 0040 


43007800 1 


r 0040 


43907900 1 


r 0040 


43008000 1 


r 0041 


43008100 1 


r 0042 


43008200 1 


r 0045 


4S008300 1 


r 0045 


43008400 1 


r 0046 


43008500 1 


r 0049 


43006600 1 


r 0050 


48608700 1 


r 0050 


43908600 1 


' 0051 


43008900 1 


r 0051 


43009000 1 


r 0054 


43009100 1 


r 0057 


43e09U0 1 


r 0058 


43009120 1 


r 00S8 


43Q09200 ] 


r 0060 


43009300 1 


' 0060 


43009400 1 


r 0061 


43909500 1 


' 0062 


43009600 1 


• 0067 


43009700 1 


0070 


43009710 1 


' 0071 


43009720 1 


' 0071 


43009800 1 


• 0073 


43009900 1 


• 0073 


430;0000 1 


0074 


41010100 1 


■ 0074 


41010200 T 


' 0076 


43010300 1 


0077 


43010400 T 


0081 


43010500 7 


0081 


43010600 T 


0084 


43010700 T 


0064 


43910800 7 


0088 


43910900 T 


0090 


49011000 T 


0090 



* • • 



EtSE MATCH<WORO*"REMOTE "J UNITI«14 

EUSE MATCH(W0R0*"DISK « ) 
BEGIN 

UNITMIF BKUP THEN IF UNIT««0 THEN 22 ELS>E iS ELSE I2i 
BKUP l» PAtSEi 
END 
EISE MATCH(WURD#"SERIAL ••) UNIT I* 12 
ELSE MATCHCWORO.CaiaOJ^^PRINT") UNIT im 17 X0901- 

ELSE MATCHCWORD, "SPECIAL") UNIT tw 3 X090r 



MATCH<WORO#"PUNCH 

MATCHCWQRD*"CAR0 

MATCH(W0RD#"RAND0M 

MATCH(WORO#''UPOATE 

MATCHCW0R0#''PAPER 

MATCH<W0R0#*'SP0 

MATCHCWORO#"rAST 



") 
") 
") 
") 
") 
") 
-) 



UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 



is 
t« 





10 

13 
7 

a 



") 



X PAPER TAPE 
IF UNIT»0 THEN 



20 ELSE 6 ELSE 2i 



) 



FORMTOG»»TRU£ 
NOLABELlwTRUE 



ELSE 
ELSE 
ELSE 
ELSE 
ELSE 
ELSE 
ELSE 

IF SLQWTOG THEN GO ERR ELSE FASTOGIpTRUE 
ELSE MATCHCWORO^^SLOW ") 

IF FASTO« THEN GO ERR ELSE SLOWTOG«»TRUE 
ELSE MATCH(WORD#"EU " ) EUTOQI»TRUE 
ELSE MATCH(WOROf"TAPE 

BEGIN 

IF UNIT NEQ 7 THEN 

UNITl«IF BKUP THEN 

BKUP I* false; 

END % IF TAPE 
ELSE MATCH(WORO#"FORM 
ELSE MATCHCWQRO^^NOLABEL") 
ELSE MATCH(WORO#"COPY ") 
BEGIN 

IF UNIT»0 THEN UNITI»22 ELSE X PUNCH TO PUD 
IF UNIT«2 THEN UNITM6 ELSE X TAPE TO PBT 
IF UNIT»17 OR UNIT«12 THEN UNIT»*15; X PRJNT TO PBD 
IF SREG LSS MAXSREG THEN 

CWORO>"ACSREG<»U}«CliSl«0 THEN 
WORD LEQ 256 THEN 
BEGIN 

LCeNTRY*33,tl5l83 U wORD-REALC WORD NgQ Q)i 
SREG»'SREG+U 
END 
ELSE GO ERRi 
END 
ELSE GO err; 
END X IF CHECKTYPE 
ELSE GO ERRi 
END X IF ALPHA STRING 
ELSE 

X *••.#•! t**f •# ft •••••.••SPECIAL CHR^^««i 

BEGIN 

IF WORD m "«« THEN EQLTQG l» NQT EUTOG 
ELSC IF WOROp"/" then LiBTOG In TRUE 
ELSE IF WORD*'"'- THEN OUOTl»TRUE 
ELSE 60 ERRi 

enoi xif special character 
End while statement; 



X0901' 



IF 

ir 



-END scan, 



^iOlUOO 

43011200 
43011300 
43011400 
43OUS00 
43011600 

430U700 
43011600 
43011810 
41111900 
43912000 
43612100 
41012200 
43912300 
43812400 
43012410 
43012420 
43012430 
43012440 
43012450 
43012300 
43012600 
43012700 
43812800 
43012900 
43013000 
43013002 
43S13004 

43013010 
43013013 
43013020 
43013025 
43013030 
43013033 
43013040 
43013045 

43013050 
43013055 
43013060 
43013065 
43013070 
43013075 
43013100 
43013200 
43013300 
43013400 
43013500 
43Q13600 
43013700 
43013800 
43013900 
41013910 
43014000 
41814100 
41814200 
77 IS 237 LONG# 
43014300 T 



0090 

0096 
0096 
OlOl 
OlOS 
0106 
0106 

ono 

0115 
0120 
0125 
0130 
0135 
0140 
0145 
0150 
0150 
0160 
0160 
0168 
0171 

0172 
0176 
0176 
0181 
0182 
0182 
0186 
0191 
0191 

0196 
0198 
0202 
0205 
0206 
0209 
0210 
0211 
0215 
0217 
0217 
0219 
0219 
0228 
0222 
0225 
0225 
0225 
0225 
0225 
0227 
0230 
0232 
0235 
0235 
NEXT SEG 
0107 



76 



(^ 



IF NOT CHECKTYPE THEN % INCOMPUETE REQUEST 

BEGIN 

W0RDt»"lNCMPLT"; M5GPTR t» 66; GO ERR; 

cno; 
if nolabel then 

UnITI«IF UNITII2 THEN 9 ELSE IF UNlTs7 THEN 8 EUSE UNiTi 
UNITj«UNIT & REAl(F0RMT00)[42U7lUi 
UtENTRY+33,CA2l63»»UNITi LCENTRY+12 3 »«0i 
IF 0SKI»(UNIT«10 OR UNIT-12 0« UNIT»l3) THEN X DISK 

BEGIN 

If tCENTRY]«0 THEN % MUST HAVE BOTH NAMES FOR DISK 

BEGIN 

LCENTRY3l*t,CENTRY*n; NAMU-NAM2; 0ll«»02; 

L[ENTRY*l]|sNAM2|*USERC00£; 

end; 

If not Ql THEN % NOT QUOTEO STRING 
BEGIN 

IF <W0RDIS5LCENTRY3). [42163 NEQ " " THEN 
IF W0R0fC6;6] NEQ THEN 
BEGIN 

msgptr i" 42; go to err; 

end; 
if findaw0rd(naml#reswr0tablei:i3*num0freswrdsj neq then 

begin msgptr l» 29; go to err; eno; 
end; 

IF EUVAL GEQ THEN UtENTRY+123 • Cl8l 5 3 1 iiEUVAL*l EUSE 
IF CFASTOG OR SUOWTOG) THEN 

tCENTRY*123tCl6l23 l» 1 ♦ ReAL(SLOWTOG); 
EnO; % IF DISK 
0lSKWAIT(0#t»30*THISE5P); % WHITE OUT THIS SEGMENT 
IF ENTRYne THEN X STARTING NEW SEGMENT 
BEGIN 

ENTERESP(UL#THISE5P*AC*3); % ENTER SEGMENT ADDRESS IN TABI.E 
IF BOOUEANCESPFUAG) THEN X NO ROOM IN E5PTABLE FOR THIS ENTRY 
BEGIN 

woRDi«"NO ROOM"; MSGPTR i« 64; GO err; 

end; 
THisEsP !» ESPi; E5PI !• getespdisk; equated i« true; 
end; X IF starting neq segment 

entry I« if ENTRYwO then 14 ELSE O; X 2 EQUATIONS PER SEGMENT 
IF DSK THEN MATCH(NAM2,C6I423#USERC00E) EUSE X OUTSIDE FIUE 

BEGIN 

FlND(UU4I AM t 3314117 3 #0#N AMI, NAM2#uSEReODE); 

AcBASE3t«NAMi; 

DOING I* i; WAITFOR In IAM; GO TO EXIT; 

end; 

WAIT! 

GO TO check; 

end; X CASE 



BEGIN X CASE 1 " RESUUTS OF DIRECTORY SEARCH 

IF EvENTSCn U5S THEN X FlU6 NOT IN DIRECTORY 

BEGIN 

WoRO«»ACBASE3; MSGPTR !• 67; GO To ERR; 

end; 

CHECKI 



/6 IS 



43014400 

43014S00 
4)014600 
43014700 
43014710 
43014720 
43014730 
43014600 
43014900 
4301S000 
4301S100 
4301^200 
43915300 
43015400 
43015500 
43015510 
49015520 
43015600 
41015700 
43015800 
43015900 
43016000 
43016200 
43016300 
43016310 
43016320 
41016330 
43016340 
41016400 
41016500 
43016600 
41016700 
43016800 
43016900 
43017000 
43017100 
43017200 
43017300 
43017400 
43017500 
43017600 
43017700 
43017800 

43017900 
43018000 
43018100 
43018200 
43018500 
43018600 

210 UONQ 
43018700 
43018800 
41018900 
43019000 
43Q19100 
41019200 
43919250 



0107 

0106 
0108 

0112 
0112 
0113 
0118 
0120 
0126 
0129 
0130 
0131 
0132 
0137 

0140 
0140 
0141 
0141 
0144 
0146 
0146 
0150 
0150 
0152 
0156 
0156 
0161 
0163 
0168 
0168 
0171 
0172 
0173 
0175 
0176 
0177 
OlBl 
OlSl 
0167 
0187 
0191 

0195 
0198 
0201 
0202 
0206 
0206 
0207 
0209 

NEXT SEG 
0008 
0008 
0008 
0009 
0010 
0012 
0012 



75 



• « 



* * • 



.> 



DQiNGf«o; waitforjkvinput; 

IF ScHEDULINE THEN REOUESTIPCLL ) ELSE 
BEGIN 

lt»0; KIwREALCTHlNGSUINK); 
WHIUE 1 LSS REALCTHINQSTOOO) 00 
BEGIN 

Hml*li 

IF TQBE0QNECKtl63,U8l73»VINPUT THEN 
BEGIN 

T0aE00NECK»16],Cl8t73»«VE0UATEi 
lAM Is WANT ts WAITFOR Is 0; 

GO TO exit; 
end; 

KI»TOBEDONECK#03,[3»63i 

end; 
End; 
GO To exit; 

end; % CASE 1 
END ALU CASES^; 



ERR! 

ERRSw i« word; 

IF EQUATED THEN ENTERESP(»LL#"0* A t * 3 j; % GIVE BACK ESP DISK 

lAM tn vebror; 

EQUATED l» false; CONTINUEBIT I« FALSE; 
EXITI 

END PROCEDURE EQUATE; 



43019300 
43019310 
43319320 
43019330 
43019340 
43019390 
43019360 
43il93ro 
43019360 
43019390 

43019400 
43019410 
43619410 
43019430 
43019440 
43019450 
43*19460 
43019470 
43019500 
START OF SEGMENT 

78 IS 3 LONG 
43019600 
43019700 
43019800 
43019900 
43*20000 
43920100 
43020200 

75 IS 59 LONG 



T 0013 

T 0014 

T 0019 

T 0019 

T 0021 

T 0023 

T 0023 

T 0025 

T 0027 

T 0027 

T 0031 

T 0032 

T 0033 

T 0033 

T 0035 

T 0036 

T 0036 

T 0036 

T 0037 

* NEXT SEG 

T 0037 

T 0038 

T 0038 

T 0042 

T 0043 

T 0047 

T 0046 

» NEXT SEG 



78 
75 



PROCEDURE 3TATUSCHECKCLCW#A); BOOLEAN LCW; ARRAY AC03; 
BEGIN 

REAL cpu*io#seq; 

LABEL NoTRUNNING#EXJT; 

X ,,,,,.,, , •,,••••,.* • t * . • t f f • • • • • t • • . • •••••••••••••. 

STREAM PROCEDURE MESSAQECW0RK#CPU#I0*CMP#R27); VALUE CPU*I0#CMP*R27; 

X ,, ...#..........,...♦•,...,•.,.,.,,...,...,,♦.,,,,,,,.,,,,, 

BEGIN LOCIL SV1«SV2; 

DII'WOrK; DSI«8LIT" "; SU'WORK; DSU9W05; X BLANK ArraY 

diiwwork; dsi»4lit"cpu»«; sviudi; sihsloc cpu; 
2cosif2CHB; dsi-^lit" hr5* ♦•; 

0SIW2CH8; 0SM6LIT" MIN* «; 

DSi»2ChB; OSI-LIT","; 0SI»CHR; OSlsdLlT" SECX"; 
OiKiSVlJ 0Slal8FILL; SV2t*Di; SIi*SV2; DIi»$Vi; 
26(IF SCw^X" THEN JUMP OUT ELSE OSlwCHRj; 

sii-Loc lo; Dsm4LiT« iob"; svn«Di); dii»di-4; 

CMP(OSl«10LIT- AT SEQ t «; SVU«0i; SlULOC R27; 

dSmboec; dsi^lit^x"; dii«svi; dsi»7FILl; sv2i»oi; 
sii«sv2; oiiBSVi; aciF sc^^x" then jump out else d5i«chr)); 
DSiBaSLiT" "; 

END STREAM PROCEDURE MESSAGE; 



44QOOO00 
44000100 
44600200 
44000300 
44000400 
START OF SEGMENT 
44000500 
44000600 
44000700 
44000600 
44000900 
44001000 
44001100 
44001200 
44001300 
44001400 
44001S00 
44001600 
44001700 
44001800 
44001900 

44002000 
44002100 
44002200 



0061 
0061 
0061 
0061 
0061 



T 0000 

T 0000 

T 0000 

T 0000 

T 0000 

T 0000 

T 0002 

T 0003 

T 0005 

T 0006 

T 0008 

T 0009 

T 0012 

T 0013 

T 0016 

T 0018 

T 0021 

T 0024 



X REQUIRES SHIFTING 
FIUENAME ELSE 



CASE DOING OF 
BEGIN 

Begin % case o - initial check 
If running or compiling then 

IF RUNl NEfl and RUN2 NEQ THEN 
BEGIN 

ACBASE+S 3 »"REALC COMPILING)) 
IF RUNNING THEN 
BEGIN 

IF (ACBASE]t>RUNnfC6t6]«0 THEN 
BEGIN 

ACBASE]I*IF RUNl.tl2l63»«l« THEN 
•• "iRUNUOlUU^J) 
END) 
AtBASE*13lwMATCH(RUN2*''CANDE ") U5ERC0DE ELSE RUN2; 
AC6ASEf23i«USERC0DEi 
iNO % IF RUNNING 

ELSE 

BEGIN 

ACBASE3MRUN2J X COMPILER NAME 

ACBASE*n«»IF RUN1.C6U2]*''IS« THEN FILENAME ELSE RUNW 
At8ASE+8}»*''USERC0DE> » NEGATIVE IF COMPILING 
END) X IF COMPIUING 
STAiTUSCLL&lAMCaaunZa'AEBASEl^ACBASE-^U'AtBASE + Zn; 

wAiTFOR j« iam; 

TEMP I* 4i 

DOING l« Xi 

GO TO EXIT) 

END) 
NOTRUNNiNGI 

W0RKC03I«*'NQ ^lOBS") 
W0RKU3«»"RUNNING'') 

TWX0UTCLL»W0RKt0]#l6*U) 
iNQUIRYIsFALSE) 
IaM In 0) 
END) X CASE 

X,,,,,, ..#,,,,.. «•••• ,, •#..••##• ,,,♦ 

BEGIN X CASE I " RESULTS OF INQUIRY 

IF EVENTStn LSS THEN GO TO NOTRUNNING) 

CPUMTlMECONVCEVENTSCUfFALSE)) 

I0«»IF EVENT5C2]»REAL<N0T FALSE) THEN ELSE 

TIMECONV (EVENTS C2]#FALSE)) 
If B00LEAN(ACBAS£«9]} THEN X COMPILING 

IF <SEOI«EVENTS C33) m - USERCODE THEN A CBASE*33l«0) X0«02- 
MES5A6E<W0RK»CPU#I0*ACBA5E*3 3#5EQ)) 
TwX0UTtLL«W0RKC03#B0#l)) 
INQUIRYI»FALSE) 
IaM I» 0) 
END CASE 2) 
END ALL CASES) 



EXITt 



BLANK(W0RKC03)) 
BLANK(WORKCn)) 



44002300 T 0025 

44002400 T 0025 

44002500 T 0029 

44002600 T 0035 

44002700 T 0027 

44002800 T 0030 

44002900 T 0090 

44003000 T 0033 

44003100 T 0093 

44003200 T 0094 

44003300 T 0036 

44003400 T 0097 

44009500 T 0040 

44003600 T 00«2 

44003700 T 0042 

44003800 T 0046 

44003900 T 0050 

44004000 T 0050 

44904100 T 0050 

44004200 T 0032 

44004300 T 0053 

44004400 T 0098 

44004500 T 0060 

44904600 T 0060 

44904700 T 0065 

44904800 T 0066 

44004900 T 0067 

44905000 T 0068 

44005100 T 0068 

44005200 T 0068 

44005300 T 0069 

44005400 T 0071 

44005500 T 0073 

44005600 T 0075 

44005700 T 0077 

44005800 T 0078 

44005900 T 0078 

44006000 T 0078 

44006100 T 0078 

44006200 T 0080 

44006900 T 0082 

44006400 T 0084 

44006900 T 0086 

44006600 P 0087 

44006700 T 0092 

44006600 T 0099 

44006900 T 0097 

44007000 T 0099 

44007100 T 0100 

44007200 T 0100 
START OF SEGMENT **♦•♦***♦* 

80 IS 9 LONG* NEXT «EQ 

44007300 T OlOi 



80 
79 



I. 



.• 



« « 1 



* > 



End procedure statuscheck; 



44007400 T 
79 li ie6 lONQ* 



0101 
NEXT SEQ 



PROCEDURE ssmsg; 

BEGIN 
DEFINE ACAn«UlNECLL#Al3«l 

STREAM PROCEDURE FRM(F,T^UC*LL) J VALUE UC*IU; 
lEGIN 

SI t« toe UCJ UPSJ 

DI *m Ji 

OS Iw 8 LIT "*♦ FROM ♦•; 

OS !• 7 chr; 
ds !• 2 LIT " c; 
SI u Loc ui; 
OS I* a dec; 

OS !■ 5 LIT ♦•) "; 

SI I"* f; 

osia|5 wos; 

END fRM; 



30000000 

sooooioo 

50000200 
59000300 
START OF SEGMENT 
50000400 
50000500 
50000600 
50000700 
56000800 
50000900 
50001000 
5000U00 
50001200 
50001300 
50001400 
50001500 
59001600 



T 0001 

T 0061 
T 0061 
T 0061 

********** 



0000 
0000 
0000 
0000 
0000 
0002 
0002 
0002 
0003 
0003 
0004 
0004 
0004 



81 



PROCEDURE SPQUTClCw*A»T); VALUE T/ BOOLEAN LCw; ARRAY ACOj; 

REAL 11 
BEGIN 
LABCL IClTi 

STREAM PROCEDURE Bi¥< W^UC^LD^ VALUE UC^LLi 
BEGIN 

01 »• w; 

SI «» LOC UCi 

UPSJ 

DS Is 7 chr; 
OS I. LIT "c*; 
SI l» LOC LLi 

OS is 2 dec; 

DS l« 6 LIT ") BUSY"; 

END bzy; 



START 



50001700 




0005 


50001800 




0005 


50001900 




0005 


50002000 




0005 


OF SEGMENT 


********** 


59002100 




0000 


50002200 




0000 


50002300 




0000 


50002400 




0000 


50002SO0 




0000 


50002600 




0000 


50002700 




0001 


50002800 




0001 


50002900 




0001 


50003000 




0002 


59003100 




0003 



82 



IF IOLELInE or ALLQHMSG then TWX0UTCLL'W0RK[03»144,2) 

ELSE 
BEGIN 

IF Running then matchccande •'*run2) else 

BEGIN 

BZY(W0RKC20]#USERC00E#LL); 
TWX0UTCT#W0RKt20 3#l6#l); 
GO XIT 

end; 



50003200 




0009 


50003300 




0008 


50003400 




0008 


59003500 




0009 


50003600 




0012 


50003700 




0014 


50003800 




0015 


50903900 




0017 


50004000 




0018 



EVENTStOl l« 0&Ll.t25l40l83&VSSMSeC18Ull73; 

MOVE (4»WQROS#WQRK[10 3#EVENTS[in; 
REMEMiERTHISCLCW); 

ENDJ 
XITI 

END SPOUTi 



50004100 

S9004200 
90004300 
50004400 
50904500 

50004600 



82 IS 26 tQNGf 



0018 
0021 
0023 
0024 
0024 

002S 
NEXT SEG 



81 



LABEL ERR' exit; 

BOOLEAN gotone; 

REAL T,WOROi 

X*************| START HERE 

rRM(i.»WORK#USERCODE*LL); 
T !• LLi 
IF (WORD««'AtBASE*2])iC3l33 a THEN 
BEGIN 
IF LL »« WORD GTR MAXLINES THEN GO ERR; 
IF LOGGEOON THEN SPOUT (LCW, A E* 3 »T) ELSE GO ERR; 
GO EXIT 

end; 

IF T « THEN 

MATCHCW0RD.t6l42]* "ALL " ) 
BEGIN 

FOR LL «» I STEP I UNTIL MAXtlNES OO 
IF USERCOOE NEQ THEN 
BEGIN 
5P0UTCLCW*At*3*T); 

GOTONE i« true; 

ENO; 

if not gotone then go err; go exit 
end; 

for ll is step i until maxlines do 
if loggeoon then 

MATcH(WaR0.C6U23» LiNEtLL* UCL0C3) 
BEGIN SPOUTCLCW#AC*3/T3; 

gotone «« true; 
end; 

if gotone then go exit; 
erri 
LL t« t; 
LITOUTCNQT ON "^Ij; 

writeasterisk I* false; 

EXITI 

Li i» t; 

ENO sshsg; 



50004700 
50004800 
50004900 
50005000 

sioosioo 

50005200 
50005300 
50005400 
50005500 
50005600 
50005700 
59905800 
50005900 
50006000 
59006100 
50006200 
50906300 
50006400 
59906500 
50006600 
59906700 
50006800 
59006900 
50907000 
50907100 
59007200 
50007300 
50907400 
50007500 
59007600 
50907700 
50007800 
50007900 
50008000 
59908100 
50008200 
59006300 



81 IS 63 LONG, 



0005 

0005 
0005 
0005 
0005 
0008 

oooe 

0012 
0012 
0014 
0020 
0020 
0020 
0021 
0021 
0025 
0027 
0028 
0029 
0033 
0034 
0036 
0037 
0037 
0039 
0040 
0040 
0049 
0050 
0052 
0053 
0054 
0054 
0055 
0058 
0059 
0059 
NEXT SEG 



PROCEDURE PDIT (LCW* A); BOOLEAN LCW; ARRAY AC03; 
BEGIN 



51900000 T 0061 

51000100 T 0061 

51000200 T 0061 

51000300 T 0061 






« * 



.♦ 



« • 



LABEL GETIT* EXIt; 

INTEGER i; 

REAL STREAM PROCEDURE FORM(T#F); 
BEGIN 

SI !• f; 01 t» t; ups; 

IF Sc LSS "O" THEN 
BEGIN 

DSI»LIT" "; DSI«7CHR; TALLYI'U 

END Else 

IF Sc EQL "O" THEN X OBJECTFlLEi 
BEGIN UPS; 

IF 5C LSS "O" THEN X NOT WRKFJLE 

BEGIN 0SI«2LIT" *«; D5I«6CHR; TALLYl»i; ENO; 
END IF OBJECT FILEi 

FOBMt»TALLY; 
END OF form; 



91000400 
START OF SEGMENT 
51000500 
51000600 
51000700 
51000800 
51000900 
51000950 
51001000 
51001010 
51001020 
51001030 
51001040 
51001050 
51001060 
51001090 
51001100 



T 0061 



0000 
0000 
0000 
0000 
0000 
0001 
0001 
0002 
0003 
0003 
0004 
0004 
0006 
0006 
0006 



CASE OOING OF 



BEG 
BEG 



END 
BEG 



END 
BEG 



END 
BEG 
GETITI 



IN 

IN X CASE 
ACBASE}! 
ACSASC'^1 
A(BASEt2 
SREG 
TEMP 
CASE OJ 

IN X CASE 
ACBASE} 
IF I»0 T 
LLDISKRE 
WANT l»V 
00INGi«2 

CASE i; 

IN X CASE 
At8ASE*2 
AEBASe+1 
GO 6ETIT 
CASE 2i 

IN X CASE 



Ot 

•modulus; ooiNGisi; 

3 «« O; X used for AOOR second HALFt 
3 »« O; X USED FOR AOOR LINK. 

im BASE*3;X BUFFER POINTER. 

*« li; X ALLOW 8 HOS BUFFER. 

1« (FIRST HALF OF BLOCK) 
l*Cn. ACBASE])"!; 

HEN GO exit; 

ADl«ACBASE*ni»II»SCRAMBLE(I*USERCODE); 

oiskread; 
; 



2f (FIRST HALF IN), 
3»«WORKC2a.FF; X ADDR 
3l8ACBASE*l3*lJX aDDR 

; 

3, (ANY HALF IN), 



LINK 
SECOND 



HALF 



FOR I»"0 STEP 3 UNTIL 27 DO 
IF W0RK[I*13»USERC00E THEN 



BEGIN 

SREG««»FORM(ACSREG3*WORKCI]>*SREQ; 

IF SREG*BASE GTR 10 THEN 
BEGIN X PRINT THE LINE. 

SREG1»BASE*3; 

M0VE(8#M0R0S#ACSREG]*UC03); 

TWXQUT(LL«LC03«64«1}J 

END printing; 
END for; 

IF LL0ISKREADI«ACBA5E+13 GTR 1000 THEN 
BEGIN X GET SECOND HALF BLOCK. 



51001200 
51001300 
51001400 
51001500 
51001600 
51001700 
51001800 
51001900 
51002000 
51002100 
51002200 
51002300 
51002400 
51002500 
51002600 
51002700 
51002800 
51002900 
51003000 
51603100 
51003200 
51003300 
S1S03400 

51003500 
51003600 
51003700 
51003600 
51003900 
51004000 
51Q04100 
51004200 
51004300 
51004400 
51004500 
Slt04600 
51004700 



0007 

0008 
0008 
0008 
0010 
0012 
0014 
0015 
0016 
0016 
0016 
0019 
0020 
0030 
0031 
0032 
0032 
0032 
0035 
0038 
0038 
0039 
0039 

0040 
0041 

0042 
0043 
0046 
0047 
0048 
0049 
0051 
0053 
0053 
0055 
0098 



BEGIN 



001NGI"3; 

wantiwvoiskrcad; 
euse 

IF LI-0lSKREAD««ACBASE+2] qTR 1000 THEN 



ACBASE*23»»0; 

A[aASE+l]l»l-LOISKREAD; 

D0INGI»2i 

want»»vdiskread; 
end e1.se ooinsmu 

END CASE 3; 

BEGIN % CASE 4, (NRAPUPJt 
EXIT* IF SREG-BA5E GTR 3 THEN 
BEGIN 

II»SReG-BASE»3; SRE6»»8ASE+3; 

M0VE(I«M0RO$fACSRea]#t.C0]}i 
TWXOUT(lU*tC03*(lx8)#CRtF)l 

END IF leftovers; 

IAMI»0; 
END CASE 4; 
END ALU cases; 



END OF PDIT; 



51004800 T 0058 

51004900 T 0060 

51O05OOO T 0061 

51005J00 T 0061 

5100S200 T 0061 

51005300 T 0064 

51905400 T 0065 

51005500 T 0067 

51005600 T 0069 

51905700 T 0069 

51005800 T 0070 

51005900 T 0071 

51006000 T 0072 

51006100 T 0072 

51006200 T 0074 

51006300 T 0074 

51006400 T 0077 

51006500 T 0080 

51006600 T 0082 

51006700 T 0082 

51006800 T 0083 

51006900 T 0083 
START OF SEGMENT ♦******♦♦* 

84 IS 6 LONG, NEXT SEG 

51007000 T 0084 

83 IS 87 LONG, NEXT SEG 



84 
83 

8 



PROCEDURE C0PYIT<LCW*A); BOOLEAN LCWi ARRAY AC*]! 

X********************4********************«************************* 

BEGIN 

COMMENT HANDLES CANOE VERBS? 

APPEnD# COPY* DELETE, MERGE, PUNCH, RESEQ, RMERQE; 
REAL InPCOuNT* OUTCOUNT, PREVNUMBER, W0R0# UNIT' UNITNUMBER, 

FILNAMI, FILNAM2, FILNAM3, SAVEWORO* NPARAMS* VERB; 



**** 



LABEL ExIT*ERROR; 
BOOLEAN T0GW0R0*WIN0UP; 

DEFINE 

REVERSETOG 

RESEQPARAM 

hardcopy 
haveinputfile 

5AVETQG 

haveIngrement 

haveoutputfile 

case doing of 

BEGIN 

BEGIN X CASE 
LABEL restart; 

NpaRAMS I* <ACSREGMBASE*AtBA5En)tFr; X PARAMETER COUNT 
VERB If IF ACBASE3«0 THEN "COPY " ELSE 
VERBTABLECACSREG3iC9l9n.C6J423; % GET VERB NAME FROM TABLE 



TOGWORDtCOim*' 
TQQWQR0tC03ll]«^ 
T0GW0RDtC05in## 
T0GW0RD.C07I1]## 
T0GW0RDitO9»n## 

T0GW0RDtcnin## 

T0GW0RD.Cl3»n#* 



RESEQVERB » 

HAVEMINUS m 

NOTWORKFILE « 

LIBTOG m 

havereseqrange « 

havenewbase • 

LASTPaRAM 9 



T0GwaRD»t02tl 
T0GW0R0it04U 
TQGM0RD*C06I1 
TOGWORD.tOeil 
TOGMQROftlOtl 
TOaW0R0«tl2ll 
T0GW0R0iCl4ll 



**** 52000000 
52000100 
52000200 
52000300 
52000400 
52000500 
52000600 

START OF SEGMENT 
52000700 
52000800 
52000900 
52001000 
52001100 
52001200 
52001300 
52001400 
52001500 
52001600 
52001700 
52001800 
52001900 
52002000 
52002010 

START OF SEGMENT 
52002100 
52002200 
52002300 



0061 
0061 
0061 
0061 

0061 
0061 

0061 

********* 

0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
***♦«**** 

0000 
0004 
0006 



85 



66 



'W' 'M; 



4 A 



♦ ♦ 



Bi 









./ 



^ 




MATCHCWERB^wOtUETE ••) X SEE IF REFERS TO WORK FlUE FIRST 

If NPARAM$«0 OR NPARAMSal AND ACSREQ«U t C 6 t 42]«»AtL " THEN 

BEGIN % SCRATCH THE WORKFILE 

IF FlLENAME»0 THEN GOERH ("NO FILE***!); X0405" 

DOING t« QBJECTFJLE I* Oi GOODQBj l«» FALSEi 

S0U8CEFIIE «• MAKEFNCIS^^LDJ X "iS" FILE NAME 

MAKEFILE(lL&l3C33Ull73M»SOURCeFaE*USERCOOE*FIl.ETYPE#0)i 

lAM »» VSETUPFILES; WRITEASTERISK l» TRUE; GO TO EXITi 
_ end; % IF DELETING THE WQRKFILE 
MATCH(VERB*''PUNCH •• ) X PAPER TAPE 

BEGIN 

IF SCHEOUIJNE THEN GQERRCPUNCH 

IF DEVICE«C0NRAC OR OEVlCEsBIDS 

X PUT YOUR FUNNY TERMINALS HERE 



THEN GOERRCPUNCH 



"#56)1 



HAROCOPY IS true; 

end; X IF PUNCH VERB 
IF FILETYPE«8 THEN X TYPE DATA FILE 

BEGIN 

MATCH(VERB*''MER6E " ) GOERRCMeRGE ♦'*57); 

MATCH(VERB#«RMERGE " ) GOERR CRMERGE "*57); 

end; X IF DATA FILE 
If TPCQUNT GTR O then X WORK FILE NEEDS UPDATING 

BEGIN 

LITBUTC^WAIT. "-NOCRLFJ; TEMP|»IJ WANT IpVUPOATE; 

GO 10 exit; 
end; 

MaTCHCVERB^^RMERGE •♦) X REVERSE MERGE 
BEGIN 
REVERSETQQ Is TRUE; VERB In "MERGE "; 

ENo; 

ClEARCW0RKC03*29); X ZERO OUT THE "WORK" ARRAY 
MaTCH(VERB*"RESEQ ") X SET DEFAULT OPTIONS 
BEGIN 

reseoverb i« true; 

workts] l» •!; x default lower bound for rese« 

WORISC^J «« lOOOOOOOO; X default upper BOUND FOR RESEQ 

W0RKC7] i" W0RKC8] it lOO; X DEFAULT BASE AND INCR. FOR RE3EQ« 

end; 
qrkt93 !» makefn(''is«#ll)> x default output file namfc 

FILNAMI m W0RKtl03 l» SOURCEFlLE; X DEFAULT SOURCE FILE NAME 
FILNAM2 l» WORKCSJ t« USERCQOE; 

inpcount is o; outcount i« 20; prevnumber »• -i; 

RESTARTi 

X.. •..**.•... «•••••. *f ••#••#*#.»#•••# t «•«•## ...**«••••• 

MHliECINPCOUNT LSS NPARAMS) OR W|N0UP DO X PjCK UP ALL PARAMS 

X,. •,,«•,.,,•••,•• •,•,••••• ••.•«*•••*,.#••##••#.*• 

BEGIN 

LABEL UNSlQNED«NEGATIVEi 

LABEL suffix; X0407'' 

UASEt NUMUSER; X0501- 

IF WINDUP THEN X FINISHING UP LAST PARAMETER 

BEGIN 

WINDUPlfFALSEi GO TO UNSIGNED! 

end; 



52Q02400 
52002S0U 
52002600 
52002650 
52Q027Q0 
52002600 
52002900 
52603000 
52603100 
52003200 
52603300 
52003400 
52003500 
52003600 
52003700 
52003800 
52603900 
52004000 
52004100 
52004200 
52004300 
52004400 
52004500 
52004600 
52004700 
52004800 
52Q04900 
52005000 
52005100 
52005200 
52005300 
32005400 
52Q05900 
52005600 

52005700 
52005800 
52005900 
52006000 
52006100 
52006200 
52006300 
52006400 
52606500 
52006600 
52006610 
52006700 
52006800 
52006900 
52607000 
52007010 
START OF SEGMENT 
52607012 
52607015 
52007020 
52607030 
52007040 
52007050 



0010 
0011 
0017 
OOI8 
0026 
0031 
0033 
0039 
0044 
0044 
0046 
0046 
0054 
0065 
0065 
0065 
0065 
0066 
0066 
0066 
0068 
0077 
0066 
0066 
0068 
0068 
0091 
0093 
0093 
0095 
0095 
0098 
0098 
0099 
0100 
OlOl 
0103 
0104 
0105 
0108 
0120 
0122 
0124 
0127 
0129 
0130 
0130 
0131 

out 

0131 

********* 

0000 
0000 
0000 
0000 
0000 

0002 



87 



STRING 



UNIT jp 2 
UNIT l« 3 
UNIT l» 4 
UNIT t» 5 



ELSE 

ELSE 
ELSE 
ELSE 



SREG I- SREG + U X ADVANCE "STACK" POINTER 

INPCOUNT t" INPCOUNT + U » COUNT THIS PARAMETER 
WORD IB AtSREGj; X TRANSFER PARAMETER 

X..,.. .., < 

IF WORO,C3!33 GTR THEN X PARAMETER IS A LETTER 

X «*•# « #»••••# ••.••ft *••»••#•••..# •.#••*«( 

SEQIN 

WORDfCllS] IS o; X ZERO OUT "CODE" PORTION 

MATCH(WORO#"END ") % CONVERT TO EOFMARK 

BEGIN 

MORO In IQOOOOOOO; 

60 TO unsigned; 
end; 
match(wqro#"printer") 

MATCH(WORD#"PUNCH "J 
MATCH(WORD*"TAPE ") 
MATCHCW0RD«"LPA ") 
MATCHCWORO#"LPB ") 
UNIT i" Oi 

IF UNIT GTR THEN X HARD COPY REQUESTED 
BEGIN 

MATCHCVERB#"COPY ") ELSE GO ERROR) 
IF HARDCOPY THEN GQ ERRORS % REDUNDANT 
If NOT HAVEMINUS THEN GO ERROR* X MISSING "TO" 
IF HAVEOUTPUTFILE THEN GO ERROR; 
UNITNUMBER l» UNIT; X SAVE UNIT NUMBER 
HARDCOPY l« true; 
HAVEMINUS M FALSE; 
END % IF UNIT GTR 
ELSE MATCHCWORD#"RESEO 
IF LIBTOG 
BEGIN 

IF RESEOVERB OR RESEQPaRaM 
RESEQPARAM t« TRUE; 

-U X DEFAULT LOWER BOUND FOR RE5EQ 
UOOOOOOO; X DEFAULT UPPER BOUND FOR RESEQ 
W0RKC63 i» lOO; X DEFAULT BASE AND INCR. 
I* -U % RESET COMPARISON VALUE 
THEN X NUMBER STORED IN SAVEWORD 



UNIT Is 6 ELSE 



XOVOl" 
X0901' 



THEN GO SUFFIX ELSE X"RESEQ" IS FlLE-N AMEX0A07' 

THEN GO error; 



GTR 29 THEN 



NUMUSERi 



WQRKCS] Is 
W0RKC6] l« 
W0RKC7] l» 
PREVNUMBER 
IF SAVETOG 
BEGIN 

if outcount 11 outcount+i 
qoerr("toomany"#3o); 
W0RKC0UTCOUNT3 i« saveword; 

SAVETOG }• false; 
end; % IF SAVETOG; 

END X IF "RESEQ" 
ELSE MATCH(WQRQ#"TO ") 

BEGIN 

IS HAVEMINUS THEN GO ERROR; % REDUNDANT 

HAVEMINUS l» true; 

END X IF "TO" 
ELSE MATCH<waRD*"LIBRARY") 

BEGIN 

IF LIBTOG THEN GO ERROR; X REDUNDANT 

IF NOT HAVEINPUTFlLE THEN GOERR( W0R0#55); 

LIBTOG l» true; 



X NO FIRST NAME 
X0501- 



52007100 

32007200 
52007300 
52007400 
52007500 
52007600 
52007700 
52007600 
52007900 
52008000 
52006100 
52006200 
52006300 
52006400 
52008500 
52006600 
52006610 
52008620 
52008700 
52006800 
52006900 
52009000 
51009100 
52009200 
52009300 
52009400 
52009500 
52009600 
52009700 
52009600 
S2009850 
52009900 
52010000 

52010100 
52010200 
52010300 
52010400 
52010500 
52010600 
52010700 
52Q10800 
52010900 
52011000 
5201UOO 
52011200 
520U300 
52011400 
52011900 
52011600 
51011700 
52011800 
52011900 
52012000 
52012100 
52012200 
52012300 
52012305 



0002 

0003 
0004 
0006 
0006 
0007 
0007 
0007 
0009 
OOll 
OOll 
0012 
0015 
0015 
0017 
0022 
0027 
0032 
0037 
0040 
0041 
0042 

0048 
0051 

0055 
0059 
0059 
0061 

0063 
0063 
0063 
0066 
0067 
0071 
0073 
0075 
0076 
0078 
O079 
0060 
0080 
0082 
0069 
0091 
0092 
0092 
0092 
0092 
0099 
0102 
0104 
0104 
0104 
0108 
OIU 
0119 
0121 



* « 



ff 

I 



• 



X0501- 

xobor 



SUFFIX! 




co?^ jbo- f\,%t rom 



UNSIGNED! 



IF INPCOUNT ♦ 2 lEQ NPARaMS THtN 

FIXUSER (INPCOUNT»A*EXIT»TRUE); 
END % IF "LIBRARY" 
EtSE IF UIBTQG THEN % SHOUUD BE SECOND NAME OF FILE 
BEGIN 

X0407 
MATCHCVERB^^OELETE ") GOERRC W0HD#39 ) ; X OUTSIDE FILE 
MATCH<VERB*"RESEQ ") GOERR(WORD# 39); X OUTSIDE FIuE 
IF HAVEOUTPUTFILE THEN GOERR( W0RD#39); 
FILNAM2 !■ WORD^ * SAVE SECOND NAME OF f Ml 

LIBTOG IS false; ^ ..a wi<-..,„, ,^ 
END * IF LIBTOG 0^ HAVeMl^OUS 
ELSE IF HAVEINPUTFlLE/vTHEN X MIGHT BE OUTPUT FiLE 
BEGIN 

MATCHCVERB#"COPY ") ELSE GO ERRORi 

IF NOT HAVEMINUS THEN GO ERROR ELSE HAVEMlNUSIsFALSE; 
IF HARDCOPY THEN GO ERRORS 
IF HAVEOUTPUTFILE THEN GO ERROR; 

IF (FlLNAM3l»W0R0J»t42l63 NE« " " THEN G0ERRCW0R0*42); 
HAVEOUTPUTFILE «« TRUE; 
NOTWORKFILE tm TRUE; 
END X IF HAVEINPUTFILE 
ELSE 

BEGIN X SHOULD BE INPUT FILE NAME 

IF HAVEMINUS THEN GO ERROR; 

IF COMpARCVERB#"DELETE ") OR C0MpAR(VERB^''RE5EQ " ) THEN 

BEGIN 

IF COMPaR(WORO'FILENAME) THEN GOERRt "WRKFILE''*62 ); 

NOTWORKFILE t" true; 

end; 

FILNAMI »« word; 
HAVEINPUTFILE I" TRUE; 
end; X IF FILENAME 
END X IF PARAMETER IS A "STRING" 
ELSE 

X •..,#•,•...,••..* • , , « 

IF WORDan23»l THEN X PARAMETER IS A "SPECIAL" CHARACTER 

X,,. ♦,,, t,.....,..,., ..,.,.,, ,,,, 

BEGIN 

IF WQRD,[tt2«6]»»/" THEN 
BEGIN 

IF LIBTOG THEN GO ERROR; LlBTOGlnTRUE; 

GO TO NUMUSER; X0501' 

END 
ELSE IF W0R0,Ca2|63«»"-'' THEN 
BEGIN 

IF HAVEMINUS THEN GO ERROR; HAVEmINUS»»TRUE; 
END 
ELSE 60 error; X FUNNY CHARACTER 
END X IF A SPECIAL CHARACTER 
ELSE 

X ,«••,,,•,,,••.,«.•.•,., ••.••*#*•..•*...#•#«.•« 

IF WOROftH53»0 THEN X AN UNSIGNED NUMBER 

X,,,, .ft*. , tt**** •#••#,•«••, 

BEGIN 



IF HAVEMINUS THEN X SHOULD BE NEGATIVE NUMBER 



S20i231G 
52012320 
52012400 
52042500 
520i2$00 
52012650 
52012700 
52012600 
52012900 
52013000 
52013100 
5^013200 
52013300 
52013400 
52013500 
52013600 
52013700 
52013800 
52013900 
52014000 

52014100 
52014200 
52Q14300 
52Q14400 
52014500 
52014510 
52014520 
52014600 
52014700 
52014800 

52014810 
52014900 
52015000 
52915100 

52015200 
52015300 
52015400 
52015500 
52015600 
52015700 
51015800 
52015900 
52015930 
52016000 
58016100 
52016200 
52016300 
52916400 
52016500 
52016600 
52016700 
52016800 
52016900 
52117000 
52017100 
52017200 
52917300 



0122 
0123 
0126 
0126 
0129 
0130 
0131 
0139 
0148 
0156 
0157 
0159 
0159 
0162 
0163 
0169 
0175 

0178 
0182 
0191 
0193 
0194 
0194 
0194 
0195 
0198 
0202 
0202 

0212 
0213 
0213 
0214 
0216 
0216 
0216 
0216 
0216 
0221 
0221 
0221 
0223 
0223 
0228 
0229 
0229 
0231 
0231 
0236 
0236 
0239 
0239 
0239 
0239 
0241 
0241 
0241 
0242 



IF 



-WOROi HAVEMINUS ta FALSEi GO TO NEQATIVEi 

THEN X AtREAOY HAVE A NUMBER STORED IN "SAVEWQRD" 

THEN 



G0ERR(lN0R0*59)i 



NEGATIVE* 



BEGIN 
MORD til 

end; 

SAVET06 

BEGIN 

IF RE5EQPARAM 

BEGIN 

IF HAVERESEORANGE THEN QOERRCWORDtSV ) i 

IF UASTPARAM THEN W0RKC7 J l-SAVEWQRO 

EUSE G0ERR(W0R0#59); 

END X IF RESEQPARAM 
ELSE IF RESEQVERB THEN X BA3E OR RANGE U* 

BEGIN 

IF havereseqrange and havenewbase then 

IF HAVERESEQRANGE OR lASTPARAM THEN 

BEGIN 

WORKt73 l» bAVEWORO' 

HAVENEWBASE »» TRUE^ 

END 
EUSE 

BEGIN 

mqrkc5] in w0rkc6] is savewordj % reseq one record 
havereseqrange »• true^ 
end; 
end x if reseqverb 

ELSE 

BEGIN 

outcount »» outcount ♦ i; 

if outcount gth 29 then goerr(»'toomany«, 30j; 

w0rkc0utc0unt3 i* saveworo^ 

end; 

end; X IF SAVETOG 

SAVEWORD im WORD; X SAVE THJS NUMBER 

SAVETOG im TRUE; 

END X IF PARAMETER IS AN UNSIGNED NUMBER 
ELSE 

X ,.. t • f .«.•,.,,,.•»,.,«»....•. t * t .* t .,»•• t •• f •••««• 

IF «0RDtm2]*2 THEN X PARAMETER 15 A NEGATIVE NUMBER 

X ,.,,,.,...,.., ..•.,,,,..•..,,#••,«. ,. 

BEGIN 



IF NOT SAVETOG THEN QOERRC WqHD* U ); X MISSING LOWER BOUND 
IF PREVNUMBER GEO SAVEWORD THEN 60ERRCSAVEW0RD^58 ); 
IF SAVEWORD GEQ ABS(W0R0} THEN GOERRCWORD^SB }; 
IF RESEQVERB OR RESEQPARAM THEN 

BEGIN 

IF HAVERESEQRANGE THEN GO ERROR; 

WORKC53 I" SAVEWORD; X LOWER BOUND FOR RESEQ 

WORKC73 «* SAVEWQHD; X BASE FOR RESEQ; 

SAVETOG i«» false; 

WORKC63 i* ABSCWORD); X UPPER BOUND FOR RESEQ 

HAVERESEQRANGE »» TRUE; 

END X IF RESEQVERB OR RESEQPARAM 

ELSE 

BEGIN 

IF OUTC0UNTI«»0UTC0UNT*l GTR 28 THEN GOERRC^TOOMANY"* 3O); 

WORKtOUTCOUNT] !• SAVEWORD; 



320ir400 
52017500 
52017600 
52017700 
51017800 
58017900 
52Q18000 
52018100 
52S18200 
52018300 
58018400 
52118500 
52018600 
52018700 
52018800 
52018900 
58019000 
52019100 

52019200 
52019300 
52019400 
52019500 
58019600 
52019700 
51019800 

52019900 
52020000 
52020100 
52020200 
52020300 
52020400 
52020500 
52020600 
52020700 
52020800 
52020900 
52021000 
52021100 
52021200 
52021300 
52021400 
52021500 
52021600 
52021700 
52021800 
52021900 
52022000 
52022100 
52022200 
52022300 
52022400 
52922500 
52022600 
52022700 

52022800 
52122900 
52023000 



0242 
0243 
0246 
0246 
0247 
0247 
0248 
0249 
0257 
0258 
0266 
0266 

0268 
0266 
0277 
0279 

0279 
0281 

0282 
0282 
0282 
0283 
0285 
0287 
0287 
0287 
0287 
0287 
0289 
0297 
0298 
0298 
0298 
0299 
0300 
0300 
0300 
0300 
0304 
0304 
0304 
0305 
0313 
0921 
0329 
0331 
0331 
0335 
0336 
0337 
0339 
0341 
0342 
0342 
0342 
0343 
0352 



« 



If 



SAVETOG ««FAUSe; 

PREVNUMBER !■ AB5CW0RKCOuTCOUNTIi«OUTCOUNT*m*WORD)' 
end; % IF NOT A RESEQ PARAMETER 

X IF PARAMETER 15 A NEGATIVE NUMBER 



W0R0ftU2]*3 THEN % PARAMETER 15 A •♦♦•♦ NUMBER 



END 
ELSE 

X 

If 
X. 



BEGIN 

IF NOTCHESEQVERB OR RE3EGPARAM) THEN GO ERROR; 

IF HAVEINCREMENT THEN GO ERROR; % REDUNDANT 

IF SAVETQG THEN X HAVE AN UNSIGNED NUMBER IN ••SAVEWORD" 

BEGIN 

IF RE5EQPARAM AND HAVERESEQRANGE THEN QUERR(5AVCW0R0,59); 

WORKt/] l» SAVEWQHO; X NEW BASE 

SAVETOG i» false; 

HAVENEWBASE tm TRUEi 
end; % IF SAVETOG 

woRKce:! i« woRDiC6t4g3; % reseq increment 

HAVEINCREMENT l« TRUE; 

end; X IF PARAMETER IS A ♦•♦♦♦ NUMBER 



END WHILE statement; X NO MORE PARAMETERS 
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SAVETOG THEN IF NOT LASTPARAM THEN X NUMBER LEFT IN SAVEWORD 

BEGIN lastparami«windup»»true; go to restart; end; 

IF RESEQVERB QR RESEQPARAM then if WORKt53»0 THEN WORKt53l«-i; 
If HaRDCOPY THEN X OUTPUT TO PERIPHERIAL UNIT 
/BEGIN 

fW0RKC9] l« ( UNnNUMBERC6U2t6] i 

\ CIF HAVEINPUTFILE THEN FILNAMI ELSE FILENAME )t 12 i6« 3$ ]; 
^EliO; % IF HARDCOPY ("PUNCH" VERB ASSUMES REMOTE OUTPUT) X0405- 
NOTWORkFILE THEN I £1^H A RJ3C_ P Y XHEN E LSE X0405- 

93»«I/ HAVEOUTPUTFILE THEN FILNAM3 ELSE FILNAMI 

BEGIN X USING THE WORKFILE 
IF FILENaM£»0 THEN GOERRC'NO FILE"»U; 

IF NOT HAVEINPUTFILE THEN X CHECK VERBS REQUIRING FILES 
BEGIN 

match(verb#''merge ") q0errcverb#6); 
«atch(verb#"append "j goerr ( verbf 6); 

end; 
if reseqverb and flletype»a then qqerr( "reseq "#s7); 
if reseqverb and filetype"! then x reseq basic file 
if havenewbase and havereseqrange then goerrcbaslc "^isj; 

end; X IF USING THE WORKFILE 
W0RKC31 l» FILNAMll 
WQRKU] I* FlLNAMg; 

QUTCOUMT l»» OUTCOUNT - 20* X ACTUAL PARAMETER COUNT 
IF RESEQVERB THEN 
If HAVERESEQRANGE AND HAVENEWBASE THEN X CALL MERGE* NOT RESEQ 

BEGIN 

WQRKCll3««WORKt53; X DELETION RANGE 

WORKC2l3l«lF WORKC53-*! THEN ELSE WORKC53; 

W0RKC223 la "WQRKC123 «« WORKC63; 

VERB l» "MERGE "; W0RKtl03 «• FILNAMj; 



52023100 


r 0353 


52023200 1 


r 0355 


52023300 ' 


r 0356 


52023400 ' 


r 0358 


52023500 1 


r 0358 


52623600 1 


r 0358 


52923700 1 


r 0358 


52S23800 1 


r 0361 


52023900 1 


r 0361 


52024000 1 


r 0361 


52024100 1 


r 0366 


52624200 1 


r 0370 


52024300 1 


r 0370 


52024400 1 


r 0371 


52024500 1 


r 0380 


5202460a 1 


r 0381 


52924700 1 


r 0383 


52624800 1 


r 0385 


52624900 1 


r 0385 


52025000 1 


r 0387 


52625100 1 


r 0389 


52025200 1 


r 0389 


52025300 1 


r 0389 


390 LONG/ 


f NEXT 


52025400 1 


r 0133 


52625500 1 


r 0133 


52025600 1 


r 0135 


52025610 1 


r 0139 


52025700 1 


r 0144 


52025800 1 


r 0145 


52029900 1 


r 0145 


52026000 1 


r 0147 


52026100 F 


> 0151 


52026200 f 


' 0151 


52026300 1 


r 0154 


52026400 1 


r 0157 


52026500 1 


r 0157 


52026600 1 


r 0158 


52026700 1 


r 0167 


52026800 1 


r 0168 


52026900 1 


r 0168 


52027000 1 


r 0177 


52627100 1 


r 0166 


S202720Q 1 


r 0186 


52027210 1 


r 0195 


52027220 1 


r 0198 


52027300 1 


r 0207 


52027400 1 


r 0207 


52027500 1 


r 0209 


52027600 1 


' 0210 


52627700 1 


r 0211 


52027800 1 


r 0212 


52027900 1 


r 0214 


52626000 1 


r 0215 


52029010 1 


r 0216 


S202B100 1 


r 0220 


52026200 1 


r 0223 



u)l«i^ 



^ 



IM^^ 



^•?^ 



SEG 66 



OUTCOUNT l» 2; 

REVERSETQG tn TRUEi 

end; 

W0RKCn«»(LU + SYSTEM)&0UTC0UNTC27l42i63iRCFlUETYPE«>8)C3"*7»l] 
«RCREVERSET0S)t5U7ll34R<N0T HAVEINPUTFIUE)C6I47I 13 
& CCaNClSEBIT)C8l47IUi 

RyNl !■ verb; RUN2 «■• "CANOE "; ERRSW l* USERCOOEJ TEMP »« 4; 
LlTOUTC'WAIT. "^NOCRtDi AC8ASE + 3J «»REALCTOGWORO)i 
If HAVEINPUTFIIE OR HAVEOUTPUTFIUE THEN % SEARCH DIRECTORY 
BEGIN 

IF HAVElNPgTFIlE THEN 
BEGIN 

AC6ASE3 Ix a; ACBASE + n t« FRNAHU 
FlN0CLl.&lAMC33l4ll73/0#FaNAMl,FItNAM2*gSERC00e)* 

CNo; 

IF WAVEOUTPUTFIUE THEN 
BEGIN 

AtBASE3l*l + 2xREAl.(HAVEINPuTFH.E)i 
ACBA5E*23 l» FILNAM3; 

end; 

DOING l« 1* 

WAITFOR I'' lAMJ 

END X IF INPUT/OUTPUT FILES SPECIFIED 
EuSE 

BEGIN X REFERS TO WORK FIUE 

IF RESEQVERB AND FILETYPE»l THEN RUNl I ■••RE5E0B «; 
% VOID 
% VOID 
X VOID 

WANT H» VOJSPATCHJ 

A[BiSE3t«RUNU 

DOING I* 2; 

ENOi 
EOJMSQ J« NOT concise; 

writeasterisk i« concise; 

OlSKWRlTECESPU; 

End; x case o 



begin % case I 

LABEL @UMMY; 

TQGWORi l« BOOLEANCACBASE*33); X RECOVER TOGGLES 
If ACBASE3 NE« 1 THEN X INPUT FILE SEARCH 
BEGIN 

IF EVENTSCn LEQ THEN GOERRC ACBASE+I 3*2); 
IF EVENTSU3it36»63 * 8 THEN 
lEGIN 

MATCHCRUNW-^RESEQ "J QOERR( ACBASEfl 3 »57 ) ; 
MATCHCRUNl^^MERGE ") G0ERR(A[BA5E*n»57); 

end; 
if eventsc23.c36j63»l and reseqverb then x basjc reseq 

BEQIt!^ 

IF HAVERESEQRANGE AND HAVENEWBASE THEN GOERRC "BASIC "US); 

RUNlls^RESEOB "; 

end; 
if atbase3»3 then x waitfor output file search 



52028300 

52026400 
52628500 
52028600 
52028700 
52028710 
52028800 
52026900 
52029000 
52029100 
52029200 
52029300 
52029400 
52029500 
52029600 
52029700 
52029800 
52029900 
52030000 
52030100 
52030200 
52030300 
52030400 
52030500 
52030600 
5203O7O0 
52030800 
52030900 
52031000 
5203U00 
52031200 
52031300 
52031400 
52031500 
52Q31600 
52031700 
52031800 
66 IS 298 LONG 
5203J900 
52032000 
52032010 
START OF SEGMENT 
52032100 
52032200 
52032300 
52032400 
52032500 
52032600 
52032700 
52032600 
52032900 
52033000 
52033010 
52033020 
52033030 
52033040 
52033100 



0225 

0226 
0227 
0227 
0232 

0239 
0238 
0244 
0247 
0249 
0249 
0250 
0250 
0254 

0258 
0258 
0259 
0260 
0263 
0274 
0274 
0275 
0275 
0275 
0275 
0276 
0281 
0281 
0261 
0281 
0281 
0264 
0285 
0285 
0266 
0292 
0296 
NEXT SEG 
0002 
0002 
0002 
********* 

0000 
0002 
0003 
0004 
0013 
0015 
0015 
00?6 
0037 
0037 
0039 
0040 
0049 
0090 
0050 



65 



68 



• J 



.* .• 






B 



BEGIN 

FlN0(LL«;lAM[33l41t7]'O#ACBASE;4'2 3fUSERCOO&#USERCODE}; 
ACBASE] I* U WAITFOR »« IAM; GO TO EXITi 
tNO; X IF WAITING FOR OUTPUT FILE 
END X IF ACBASE] NEQ 1 
EUSE 

BEGIN X CHECKING OUTPUT FILE 
IF EVENTSCU GTR THEN GQERRC ACBASE+2]*3)i 
end; X IF ACBASE] « U 
ERRSW I* uSERCOOEi 
WANT IB vdispatch; 
ACBASE] I" RUNU 

DOING »» a; 

End case h 



begin x case z 
Label bummy; 



- ADJUST AFTER CANOE JOB EOJ 



IF EVENTSCl]"! THEN % EOJ OK 
BEGIN 

VERBtsACBA3E]J TOGWORD O BOOLEAN( ACBASE-t-3 ] } j 
IF NOT C HaRDCOPY OR NQTWORKFlLE) THEN X WORK FILE ALTERATION 

BEGIN 

IF FILETYPE»8 THEN * TYPE DATA FILE 

MATCHCV£R6»"APPEND "J LASTRECORO l» 

LASTRECURD ♦ COMMONCELL. C21I27] ELSE 

MATCH(VER8#''C0PY ") LASTRECORO l«COMMONCELLt C2l I 27 ] ; 

SQURCEFlLEl»MAKEFNC"iS"*LL)l GOOOOBj luFALSE; NOSAVE I'FALSE; 

end; 

end; X IF EOJ QK 
IaMI«0; if BREAKORWRU then LINECLEAR(LCW*AC*3); 

End; x case 2 

END ALL cases; 



GO TO Exit; 

ERROR! GOERR(W0flD#8;; 

EXITI 

END PROCEDURE CQPYIT; 



52033200 
52033300 
52033400 
52033500 
52033600 
52033700 
52033600 
52033900 
52034000 
58034100 
52034200 
52034300 
52034400 
52034500 
68 IS 84 LONG 
52034600 
52034700 
52034710 
START OF SEGMENT 
52034800 
52034810 
52034820 
52i34830 
52634840 
52034850 
52634860 
52034870 
52034880 
52034690 
52f34900 
52835000 
52035100 
52035200 

89 IS 36 LONG 

52035300 
START OF SEGMENT 

90 IS 4 LONG 

52035400 
52035500 
52035600 
52t35700 
85 IS 19 LONG* 



0052 
0052 
0056 
0063 
0063 
0063 
0063 
0068 
0077 
0077 
0079 
0079 
0062 
0063 
NEXT SEG 
0003 
0003 

0003 

********* 

0000 
0001 
0001 
0005 
0007 
0007 
0009 
0012 
0015 
0023 
0030 
0030 
0030 
0033 
NEXT SEG 

0004 

********* 

NEXT SEG 

0009 

0005 

0011 

0011 
NEXT SEG 



65 



89 



85 

90 
85 



X**********************************************************************il 

PROCEDURE SEQCLCW,A)J BOOLEAN LCW; ARRAY ACO]; 
X**********************************************************************X 

BEGIN 
REAL STREAM PROCEDURE OUTSUPR( INPUT, OUTPUT ); VALUE INPUT; 

BEGIN 

du»loc input; osi»7Fill; 
sii«LOc input; oii«output; 

8CIF SCs" " then 5ll«SI*l ELSE 

BEGIN DSIbCHR; TALLY I«TALLT+1; END); 



53600000 T 0061 

53000100 T 0061 

53000200 T 0061 

53600300 T 0061 

53000400 T 0061 

START OF SEGMENT *******t 

53000450 T 0000 

53000900 T 0000 

53000550 T 0000 

53000600 T 0001 

53000700 T 0002 



91 



outsupri-tally; 

END STREAM PROCEDURE OUTSUPR; 



53000800 T 0003 
53000900 T 0003 



PROCEDURE 



SEQC0MCI.U*SEQW0RD)> 
COMMUNICATE (-14); 



VALUE Lt# SEQWORQ; RtAL tU# SEQWORDJ 



51001000 T 0004 
53O0U0O T 0004 



REAt 
UABEL 



PC* I» WORD* SEQNO' INCR* SEQOUT; 

ERR* exit; 

ERRSW l» "5EQ ♦♦; MSGPTR l« 8; SEQNOI sINCRI '»-l ; 
IF FILENAME » THEN GQERRC«N0 FILE"*!?; 

DEVICE *» TC500 THEN GOERR( "SEOUENC'Sb); 

FIUETYPE<«8 THEN GOERRCOATA "#57); 

PC !■ ACSREGI»eASE*AtBASEn»FF GEO 3 THEN 



IF 
IF 
IF 

BEGIN MSGPTR *n 
WHILE I LSS PC DO 



16; GO err; end; 



BEGIN 



I »«? I 4 
IF (WORD 

SEQNO 
ELSE IF 

INCR 



i; 



ACINC(5REG)]),C2«4] 

W0RD.C2H27] 
WORDttH23 ^ 3 THEN 
«8 W0RD.C2n271 



9 THEN 



ELSE GO ERK; 

END WHILE i; 

IF SEONO • OR INCR GTR 500000 OR INCR " THEN GO ERR; 

IF INCR NEfl -I THEN 

BEGIN INCREMENT M INCR; SEQLAST I- SEQIN; END; 

IF SEQNO NEQ -1 THEN SEOOuT »» 5EQN0 
ELSE SEaOUT »« SEQLAST ♦ INCREMENT; 

SEQLAST «s SEQOUT - INCREMENT; 

IF SCHEDULINE THEN 
BEGIN XSEND OUT SEQ NUMBER FOR SCHEDULE LINES 

I l« OUTSUPR(0ECC0NVCSEQ0UT)#W0KKC03); 

TWXOUT(LL>W0RKt0]*I*NOCRLF); 



END 



ELSE IF DEVICE»C0NRAC OR DEVICE'BIOS THEN X SEND SEQUENCE 

0UTPUTNUMBERSCLCW»AC*3) 

ELSE SEQCOM cut* $EQUUT& INCREMENT [2 t 29119 j); 



X VOID 



ERRi 

EXIT'ENO 



WRITEASTERISK tm FALSE; 
SEQMODE IB true; IAM M 
ERRORCSREQ*LCWfAC*}}; 

SEQ verb; 



o; GO exit; 
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53001200 T 


0006 


51001300 T 


0006 


53001400 T 


0006 


53001500 T 


0009 


53001520 T 


0018 


53001540 T 


0025 


53001600 T 


0032 


53901700 T 


0035 


53001800 T 


0037 


53001900 T 


0039 


53002000 T 


0039 


53002100 T 


0040 


53002200 T 


0043 


53002300 T 


0044 


53002400 T 


0047 


53002500 T 


0047 


53002600 T 


0048 


53002700 T 


0049 


53002800 T 


0052 


53002900 T 


0093 


53003000 T 


0057 


53003100 T 


0058 


53003150 T 


0062 


53003200 T 


0064 


53003250 T 


0065 


93903300 T 


0066 


53003350 T 


0069 


53003400 T 


0071 


51003410 T 


Qon 


53003420 T 


0075 


53003900 T 


0077 


53003600 T 


0080 


53003700 T 


0080 


53003800 T 


0082 


53003900 T 


0066 


53004000 T 


0086 


92 LONG* 


NEXT 5£0 



PROCEDURE BYE CLCW*A); BOOLEAN LCw; ARRAY AC03; 

x*************************«*************************************** 

BEGIN 



54000000 T 0061 

54000100 T 0061 

54900200 T 00«1 

54000300 T 0061 



* • • 



* 






LABEL SKIP* EXIT/ 
REAL 



START 



t; 



BEGIN 



BEGIN 



IF 
I 

IF 

IF 
I 

IF 



ACBASE] LSS lOO THEN 

% NOT A HELLUCNEWUSER3 CALL 
USERC0DE«IAMI»0 THEN GO EXIT; 
A [BASE] LSS 50 THEN X CHECK FOLLOWING 



BEGIN 

end; 
end; 



X VQlO 



SKIP! 



end; 



T«»({A tSREG»«BASE*A CBASE]3).FF) > 1 THEN 
GOERR C''T00MANy''»16); X TOO MANY PARAMETERS 

IF T B 1 THEN 

IF Tt»CA CINC CSREG))tC6»423J»'"BYE " 
ELSE GOERR (T#9) X ILLEGAL PARAMETER 

ELSE 

if filename neq then 

if tpcount nec or filename neq sourcefile then 
if not nosave then 

nqsav&isTrue; goerrcno save»'*48); 



IF NOT "HELLO" 

XQ524- 
X0524- 
X0524- 
X0524- 
THENXFORCEO BYE 
X052«" 
X0524" 



IF 



THEN 



X0524- 



>u; GO skip; 



QUICKBYE 
BEGIN 

LITOUTC'BYE 

END! 

W0RKC03 IS "ON FOR "; BLANKCW0RKC03 >; 
TIMEUSE0CW0RKC13*TlMEC0NVCTIHECl)«'LOG0NTlMEfFALSE)); 

IF NOT SCHEOULINE THEN 
TWXOUT(LLfWORKC03*33*CRLF); 
W0RKt03 »• "CiE USE"; BLANKCW0RKC03 ); 
TlMEUSEOCl^ORKt UNCHARGE »»TlMECONV(PTIME#FALSE)); 
TWXOUT(LL*WORKC03«33*CRLF)i 
W0RKC03 »» "EXECUTE"; BLANK(W0RKC03 J; 
TIMEUSED<WORKCU*TlMECONVCETIME#FALSE)); 
TWXOUT(LL#WQRKC0 3#33/CRLF); 

W0RKf03 t« "10 TIME"; BLANK(W0RKt03); 

TIMEU3EDCW0RKtl3#TIMEC0NVCI0T0T# FALSE)); 
TWX0UTCLL'W0RK[03*33*CRLF); 
W0RKt03 «P "OFF AT "; BLANK( WORKED] ); 
TiMEOFOAYCWORKt 13#TIMEC0NV(TIME(1)»TRUE)); 

IF NUT SCHEOULINE THEN 
TWXOUTCLL#WORKC03i'l8»CRLF); 
W0RKC03 I" "GOODBYE"; BLANK(W0RK [03 ); 

woRKCU i« usercqqe; blankcworkcu); 

TWX0UT(LL*W0RKt03f 16'CRLF); 
W0HKC03|!iDATE; 

TWXQUTCLL*WORKt03#8#in; 

WRITEASTERISKMFALSE; W0RKCO3»»"t* "; 
IF ACSASEJ LSS 50 THEN X NOT HELLO 
BEGIN 

twxout(ll#workc03»3#-n; % disconnect the line 

if not scheouline then go exit; x rem.wk.fll in olscnct 

end; 



CHARGE }"• timeconvcptime^falsej; 

FILESAWAY (TRUE^USERCOOE); 



X0527- 



5it000<j00 T 


0061 


OF SEGMENT ********** 


54000500 T 


0000 


54000550 T 


0000 


54000560 T 


0001 


54000600 T 


0001 


54000601 C 


0003 


54000602 C 


0004 


54000603 C 


0005 


54000604 C 


0008 


54000605 C 


0015 


54000606 C 


0015 


54000607 C 


0020 


54000608 C 


0026 


54000610 T 


0026 


54000620 T 


0028 


54000630 T 


0031 


54000640 T 


0033 


54000690 T 


0033 


54000660 T 


0042 


54900665 C 


0042 


54000670 T 


0042 


54000675 T 


0043 


54000680 T 


0043 


54000690 T 


0046 


54000700 T 


0046 


54000800 T 


0048 


54000890 T 


0051 


54000900 T 


0052 


54001000 T 


0055 


54001050 T 


0057 


54Q01100 T 


0060 


54001150 T 


0062 


54001200 T 


0064 


54001290 T 


0067 


54001260 T 


0069 


54001270 T 


0071 


54001280 T 


0073 


54001300 T 


0075 


54901400 T 


0077 


54001490 T 


0080 


54001500 T 


0081 


54001600 T 


0083 


54001700 T 


0085 


54001800 T 


0088 


54f01810 T 


0090 


54001820 T 


0091 


54001830 T 


0091 


94001900 T 


0093 


54002000 T 


0096 


54002050 T 


0097 


54002100 T 


0098 


54002110 T 


0100 


54002120 T 


0101 


54i02l50 T 


0101 


54002175 T 


0101 


54002200 P 


0103 
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IF SCHEOULINE THEN ISCONNECT CLCW» A ); 
FILESOK I* BCFIlENAMEl«»0)J TPCOUNT !• O; 
EXIT« ENB bye; 
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54002950 T 


0104 


54003000 T 


0107 


54009100 T 


OIU 


IS 124 LONG, 


NEXT 5EG 



PROCEDURE MAWENEWFlLECAJi ARRAY AC03; 

BEGIN 

tABEu NEXT*ERR#EXIt; 

REAL T^MAXSREfi; 



X FILE NAME 

» FILE TYPE 

» NUMBER OF DIRECTORY SEARCHES 

» NUMBER OF WORDS USED ABOVE 



DEFINE 

NAMEwORD » ACBASE3** 

TYPEWORO « AtBASE+n** 

SEASCHCOUNT n AtBASE*23«# 

SAVEsIZE « 3#; 

DEFINE ERRORCERRORD* 
BEGIN 
MsGPTRI'ERRORi; GO TO ERR^ 

eno«; 

STREAM PROCEDURE MSG (AREAfTOG >; VALUE TOQ; 
BEGIN 
LABEL XTl 
T I kAREA J 

TQGCOSJ^ISLIT" DUPLICATE NAME"; JUMP OUT TO XT)I 
DS»-15LIT" CREATED »i 

XT« End STREAM PROCEDURE MSGi 



55000000 T 0061 

55001000 T 0061 

55002000 T 0061 

55003000 T 0061 

55004000 T 0061 

START OF SEGMENT ***♦*♦*- 

55005000 T 0000 

55006000 T 0000 

5S007000 T 0000 

55008000 T 0000 

55009000 T 0000 

55010000 T 0000 

55011000 T 0000 

55012000 T 0000 

55013000 T 0000 

55014000 T 0000 

55015000 T 0000 

55016000 T 0000 

55017000 T 0000 

55018000 T 0000 

55019000 T 0000 

55020000 T 0000 

55Q21000 T 0000 

55022000 T 0000 

5»023000 T 0004 

55024000 T 0006 
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CASE DOING OF 

BEGIN 

BEGIN % CASE - S 
IF FILENAME NEQ 
If TPCQUNT NEQ 
IF NOT NOSAV 
BEGIN 
NOSAVE !■ 

ENOI 
MAXSrEG t» AtSREGt 
CLEARCACSASElfSAVe 
FOR SREGtsSREG+1 S 
• EGIN 

If ACS8EG3a3l3 
BEGIN 

IF NAMEWORD* 
IF TYPEWORO'* 
EBR0R(8); 



YNTAX CHECK 
THEN 

OR FILENAME NEQ SOURCEFILE THEN 
E THEN 

true; goerhcnq save"#48); 

•BA5E-AtBA5E3].C18ll53 ♦ SREG; 
SUE); % ZERO OUT "STACK" WORDS 
TEP 1 UNTIL MAXSREG DO 

3 NEQ THEN % ALPHABETIC STRING 

THEN NAMEW0RDI»ACSREG3 ELSE 
THEN TYPEW0R0l»AtSREQ3 ELSE 



55025000 
55026000 
55627000 
55028000 
55029000 
55030000 
55031000 
55032000 
5S033000 
55034000 
55035000 
55036000 
51037000 
55038000 
55039000 
55040000 
55041000 
5S042000 
51943000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0007 
0007 

0008 
0008 
0008 
0009 
0013 
0015 
0015 
0024 
0024 
0027 
0028 
0033 
0033 
0034 
0035 

0038 
0042 



NEXT! 



IF 
IF 
IF 



IF 



END X IF ALPHABETIC STRING 
ElSE IF ACSREaJs'M" THEN 
BEGIN 

IF TYPEWORD*0 AND SRE6 USS MAXSREG THEN 
IF ACSREGIffSREa+l],C3»33 GTR THEN 
BEGIN 

IF (Tl»FlN0AUETTERCACSREQ3#TYPETABUEtn#NUM0FTYPES))*'0 THEN 
BEGIN 

TYPEKORDJ* T&Ull«7in; X MARK ALREADY CHECKED 

GO TO next; 

end; X IF IN THE TYPETABlE 
end; X IF ALPHABETIC STRING 
ERR0R(8); 
END X IF "!•• 

Else errorcbj; % no other inputs allowed 
End srsg loop; 

NaMEW0RD»0 then GOERRfNO NaME"#6); X NO FILE NaM£ GIVEN 

NAMEWORO,t3l33 GTR 6 THEN eOERR< NAMEW0R0#<J2); 

FINDAW0R0<NAMEW0R0»RESWRDTABLEU3*NUM0FRESWR0S) NEQ THEN 
G0ERR(NAMEW0RD#29); 

TYPEWQRD s THEN TYPEWQRD l«7 ELSE X DEFAULT IS SEQUENCE 

Begin 

If NOT B00LEANCTYPEW0RD.CIU3) THEN X NOT PREVIOUSLY LOCATED 
BEGIN 

IF CT|»FINDAW0R0(TYPEW0HD*TYPETABLECl3#NUM0FTYPESn»»0 THEN 
G0ERR(TYPEW0RD#20); 

end; 

TYPEWQRD iw ABSCTj; 

If CHE0KBIT(TYPEW0RD-1,RESTRICTEDLAN6UAGES) THEN 
G0ERR(TYPETABLEtTYPEW0R03fC6»423^ 49); 

End; x checking file type 

NAMEwQRD,CllS3l«0; 

genfilinecnameword*typetablectypeword3); 
find(ll&iamc33i4h73*0*namew0r0#userc0de#u5erc00e); 

FINDCLL4IAMC33l4l»73*O,NAMEW0ROit6l363^USERCOOE#USERgODE}; 

filesok i» false; 
TEMP I* savesize; 

DOING ta Xi 

wAiTroR i<* iam; 
end; X case 

BEGIN X 'case 'I*- 'results 'of 'directory 'search •♦••»- 

IF EVENTStn QEfl THEN NaMEWORd. C 1 1 1 3 l»i; X ERROR FLAG 

if csearchc0unt«*5earchc0unt+u»2 then 
Begin 

msg(wqrk,nameword,ciii3); x build message for user 

TwXQUTCU#W0RKC03#15*X); 

IF B00LEAN(NAMEW0RD,CII13) THEN X ERROR 

BEGIN 

LINECLEAR(LCW#AC*3); 

MSG^TR i« 3; 
filesok*true; 
writeasterisk i« true; 
if scheduline then 



X 

X 



SRC 
OBJ 



X0i03' 



55044000 
5594S000 
55046000 
55047000 
55046000 
55049000 
55050000 

55051000 

55052000 

55053000 

55054000 

55055000 

55056000 

55»57000 

55058000 

55059000 

55060000 

55061000 

53062000 

55063000 

55664000 

55065000 

55066000 

59067000 

55068000 

5S069000 

55070000 

55071000 

55072000 

5S073000 

55073100 

55073200 

55074000 

55075000 

55076000 

5SQ77000 

55078000 

55079000 

55080000 

55081000 

55082000 

55083000 

55084000 

5S08S000 

55086000 

55087000 

5598B000 

55089000 

59090000 

55*91000 

55092000 

55Q93000 

5S094000 

55095000 

55095500 

55096000 

55*97000 



0044 

0044 

0046 

0046 

0049 

0052 

0052 

0055 

0056 

0058 

0059 

0059 

0059 

0061 

0061 

0063 

0064 

0064 

0064 

0072 

0078 

0081 

0086 

0090 

0090 

0092 

0092 

0096 

0101 

0101 

0103 

0106 

0114 

0114 

0114 

0116 

0118 

0122 

0127 

0129 

0130 

0131 

0132 

0132 

0132 

0132 

0136 
0140 
0140 
0142 
0144 
0145 
0145 
0149 
0151 
0153 
0156 



IF 
GO TO 
ENDi 

cilename 
filetype 
lastrecoro 
sourcefile 



NOT NOSTOP 
EXITi 



THEN SCHEOERRQR; X TERMINATE SCHEDULE 



t« NAMEW0R0«(6l42Jj 
l« TYPEWORDi 

t» MAKEFN("XS"»UL); 



MaKEFILE(LL4UC33I41I7 3*1*S0URCEFILE*USERCQDE#FILETYPE#-2); 
GODDOBJ t" FALSEi 
NOSAVE «« FAUSEJ 
OBJECTFXLE I' OJ 

sequast I* SEoiN t* o; 
Increment »» lOo; 

IaM Iff VSETUPFIIES; 

DOING «=« o; 

End % IF ALL SEARCHES DONE 

ELSE 

BEGIN 

WAiTFOR I* iam; 

GO TO EXITi 
ENDi 
END CASE i; 
END ALL cases; 



GO TO Exit; 

ERRJ GQERR<ACSREG]*8)j 



exiti 

END PROCEDURE MAKENEWFILE; 



55098000 
55099000 
55100000 
55101000 
55102000 
55103000 
55104000 
55105000 
55106000 
55107000 
55108000 
55109000 
55110000 
55111000 
55112000 
55113000 
55114000 
55115000 
55116000 
55117000 
55118000 
5S119000 
55120000 
START OF SEGMENT 
94 IS 3 LONG, 
55121000 T 
55122000 
55123000 
55124000 
55125000 
55126000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
** 



93 IS 205 LONG* 



0157 
0169 
0170 
0170 
0173 
0175 
0176 
0178 
0182 
0185 
0187 
0188 
0191 

0192 
0193 
0193 
0193 
0193 

0194 
0195 
0195 
0195 
0196 
******** 

NEXT 5EG 

0196 

0197 

0197 

0201 

0201 

0202 
NEXT 5EG 



94 
93 



PROCEDURE LISTIT (LCW*A); BOOLEAN LCW; ARRAY AtOj; 
%********************************************************************** 31 

BEGIN 



LABEL PRNT* CASES* CASE4# ERH# EXlTi 

LABEL numuser; 

REAL PREVW* WORD* TYPE* CHAR* PC I» WU 
BOOLEAN LIB* SQUASH* CHANGES* NUMBERED* DISPLAYS 
STREAM PROCEDURE NOCHGMSQ< WORK) ; 

BEGIN 

DI»»W0RK; 0Sl«29LIT''N0 CHANGES SINCE LAST UPDATE."* 

end; 



X0501' 



56600000 

56000100 
56000200 
56000300 
56000400 
START OF SEGMENT 
56000450 
56000500 
56000600 
56000700 
56000600 
56000900 
56001000 





0061 




0061 




0061 




0061 




0061 


******* 




0000 




0000 




0000 




0000 




0000 




0000 




0004 
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CASE DOING OF 
BEGIN 
X,...,,, .«•,..•< 

BEGIN X DOING m 



56001100 T 0004 

56001200 T 0005 

56001300 T 0005 

56001400 T 0005 



♦ 1 



HI 



! 



PREVW IS -i; X ALUUW AS PARAMETER. 
W0RKC2]t"MQRKt4]tsUSERC0DEi MORK C 33 ("SOURCEFILEi 
PC l« AC SREG «= BASE • ACBASEJJ.FF; 
Match (VERBTABl,EtAtSREG],C9l9]],C6U23»''0ISPUAY'') 

BEGIN OlSPtAY l« TRUE; GO TO PRNT; ENOi 
IF lAM * VPRINT THEN 

BEGIN 
PRNTI lAM t9 VLIST; 

ACBASE] >" Oj 

writeasterisk i* truei 

end; 
w T t s2 1 ; 
While i uss pc do % pick up all parameters 

begin inc(i); 

WORD l« AtlNCCSREGJ]; 

IF WGR0.C2J4] « THEN TYPE I" % NUMBER OK "NUMBER, 
Et.SE 

IF waRD»tl«23 » 3 THEN TYPE l» I X ♦NUMBER. 

ELSE 

IF WORD. [1123 • i THEN TYPE l» 2 * SPECIAL CHARACTER.. 

ElSE 

TYPE tm 3; % ALPHA WORD, 

CASES! CASi TYPE OF 
BEGIN 
«•.,, ,. ..,*•..••.. , .•.,.*..,• 

BEGIN % TYPE » 0. 

IF PREVW GEQ PREVW |«ABS( WORD ) THEN GO EHR; 

WORK(wni*lF CHAR""-" THEN CHAR Ja-ABSC WURD J ELSE WORO; 

IF INCCWU 6TR 30 THEN GO ERR; 

END CASE 0; 



NUMUSERt 



GO TO err; X TYPE » 1 

X.,,, •••.,, 

BEGIN X TYPE « 2. 

IF LIB 1= (CHAR I' WORD.CF) • "/" THEN 



xosot- 

X0501- 
IF I * 2 LEQ PC THEN FIXUSER ( I * A#EX1 T» TRUE) ELSEXOSOl" 
ELSE X0501- 

IF CHAR » "*" THEN SQUASH »* TRUE 
ELSE 

IF CHAR » »#" THEN NUMBERED 1^ TRUE 
ELSE 

IF CHAR 9 ♦•$•» THEN CHANGES I* TRUE; 
END CASE 2; 

**BEGIN X TYPE*»*3.* ALPHA WORo! **'* 

WQR0«Uld3ls 0; 
MATCHCWORD^ "END " ) 

BEGIN 

ACSRE@3 t« WORD is TEN8; 

TYPE "» 0; 

Gu TO cases; 
end; 
match (word* "files »• ) x list files 

BEGIN 

lAM Iff VLFILES; 

COMMONCELL l« PCi; 



56001500 
56001600 
56001700 
56001710 
56001720 
50101600 
56001900 
56002000 
56002100 
56002200 
56002300 
56002400 
56002500 
56002600 
56002700 
56002800 
56002900 
56003000 

56003100 
56003200 

56003300 
56003400 
56003500 
56003600 
56003700 
56003800 
56003900 
56004000 
56004100 

56004200 
56004300 

56004400 
56004500 
56004600 
56004700 
56004705 
56004710 

56004790 
56004800 
56004900 
56005000 
56005100 
56005200 
S6005300 
56005400 
56005500 
50005600 
56009700 
56005800 
50005900 
56006000 
56006100 
56006200 
56006300 
56006400 
56006500 
56006600 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
C 
C 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0005 
0006 
0010 
0013 
0013 
0021 
0021 
0022 
0023 
0025 
0027 
0027 
002B 
0029 
0030 
0032 
0034 
0035 
0037 
0038 
0040 
0041 

0042 
0043 
0043 
0043 
0043 
0045 
0050 

0052 
0052 

0052 
0053 
0053 
0053 
0055 
0056 

0060 
0061 
0063 
0063 
0065 
0066 
0068 
0069 
0069 
0069 
0071 
0071 

0073 
0074 
0075 
0078 
0078 
0079 

ooeo 

0080 



GQ EXIT; 
ENOJ 
MATCHCWORD^WTO " ) CHAR is "-" 
EtSE 

MATCHCWQKD* "CHANGES") CHANGES! »TRUE 
EtSE 

MATCH(W0RD*''SQUA5HE") SQUASH «»TRUE 

ELSE 

MATCHCWORD^^NUMBERE") NUMBERED MTRUE 
ELSE 

MATCH(WQRD»"IIBRARY») BEGIN LIBlwTRUEiQO NUMU5ER END 
BEGIN X NOT SPECIAU WQRO - MUST BE fill NAME, 
WQRKC3 4 REAICUIB}] ?« WOROJ 

LiB i» false; 

WORKt83 »» o; 
END HANDLING FILE NAMEJ 
END OF CASE 3j 
X,.,,,,...,*,., .,,,.,.. .,,,....•, «... 

END ALL cases; 



X)} 



IF TPC0UNT»O 



X LIST PROGM, NEEDS PARAMS 



19 



o; 

TEN8 



END ALL PARAMETERS; 
IF WORKC33 » THEN GQERRCNOFILE 
If (PC»«WI-2n?0 THEN 
BEGIN 

IF TPCOUNT ■ THEN X UPDATE NOT REQUIRED 
BEGIN 

IF CHANGES THEN X NO CHANGES 
BEGIN 

NOCHQMSGCWORK); 
TWXOUT(LL*WORKt0 3»2V*l); 

lAM t« o; 

GO TO exit; 

end; 
end x if tpcount • 
else if not changes then 

IE6IN 

W0RKC211 

HQRKC223 

PC l« 2; 

end; 

ENDl X IF PC • 
MOVE C16*W0RD5KTRAND8ASECO3*W0RK[53)i 
OOGHQUSECLL] !• WORKCO] l« OJ 

W0RKCI]I»(LL+SYSTEM) & PCt27U2«63 & RCCHANGESJC J U7I 13 
& R(5QUASH)C2U7I13 & R<FlLETYPE»»85 C 31 AM I 3 
& R(NUMBEReD)[4l47U3 « R(W0RK[23 NEQ OX6H7U3 
« R(DISPLAY}(7t47in « R(M0NIT0RBIT } C9 147 } 1 3 ; 
IF WORKC23 NEQ AND TPCOUNT GTR THEN W0RKC43 l«'U5ERL0C; 
DISKWRITECESPUI 

RuNl l» IF TPcOUNT»0 OR W0HKt23*0 THEN "QUIKLST" ELSE "LIST 
RUN2 I" "CANDt "; ERRSW I* USERCODE; 
If W0RKt23 NEQ THEN X MEANS LIST THE WORKFILE, 
BEGIN 
WANT !• VCLOSEWORKTABLE^ 

ERRSW i» filename; 

DOING l« i; 



& 3Cn46l23i 



56006700 

30006800 
56006900 
56007000 
56007100 
56007200 
56007300 

56007400 
56007500 
56007600 

ELSE 56807690 
56007700 
56007800 
56007900 
56006000 
56008100 
56008200 

t.,» 56008300 
56008400 
START OF SEGMENT 
96 IS 5 LONG 
56008500 
56008600 
56608700 
56008800 
56008900 
56009000 
56009100 
56009200 
56609300 
56009400 
56009500 
56009600 
56009700 
56009800 
56009900 
56010000 
56010100 
56910200 
56010300 
56010400 
56010500 
56010600 
56610700 
56010800 
56010900 
56Q11000 
56011010 
56011020 
56011100 

"i 56011200 

56011300 
56011400 
56011500 
56611600 
56011700 
56011800 



0082 
0084 
0084 
0086 
0086 
0091 
0091 
0096 
0096 
OlOl 
0101 
0109 
0109 
0111 
0112 
0U3 
0113 
0113 

0113 

********* 

NEXT SEG 
0114 
0114 
0122 

0123 
0124 
0125 
0126 
0126 
0127 
0128 
0129 
0130 
0131 
0131 
0131 
0132 
0132 
0133 
0136 
0136 
0136 
0136 
0199 
0141 
0144 
0147 

0150 
0153 

0157 
0161 
0166 
0168 
0169 
0170 
0171 
0172 



96 
95 



■♦■ A 



» • ' 



IF TPCOUNT NEQ THEN UfDATEBiT !• U X UPDATE IN PROGRESS 
IF ACBASE] NEQ THEN % PRINT HEAQINQ 

BEGIN 

TWXOUT CLL#WORKC03#0#2); 

GENFIUINE (FILENAME* TYPETABLECFIIETYPE] ); 

GO TO CASE4i 

end; 
end % if workfile 

ELSE 

BEGIN % FILE NAME GIVEN 

FINDCLL&IAMC33I4H7 3,0*WORKC3],WORKC4 3*USERCODE); 
ACBASE+U »» W0RK[3Ji X SAVE FILE NAME 
TEMP t» DOING !■ 3; 
WAITFOR l» IAM; 

60 TO exit; 

ENOi 

eno case Oi 
'begin* i'ooiNG w X ' ' ' ' * ** 

WANT »B VOISPATCHJ ERRSW »» USERCqDE; 
DOING >a 2i 

End case m 
Begin' x'ooing » 2 

IF BOOLEANCUPDATEBIT) and EVEnTSCU m I THEN % UPDATE OK 
BEGIN 
CANCELCKPTCAt*]}; SOURCEFIlE I* MAKEFNC "IS'^^LL ) ; 

end; 

lAMUQi IF BRLAKORWRu THEN LiNECLEARC LCW# AC *] ) ; 
END CASE 2; 

BEGIN* x'dOING is'*'* "* 

IF EVENTSCn LEQ THEN GOERRC At BaSE*U' 2); 

iam I* voispatch; errsw t» usercooe; 

If ACBASE3 nEQ THEN % PRINT HEADING 
BEGIN 

TWXOUT(LL*W0RK[O3#0*2); 

I i» FNONLYCLt03*PC*ERRSWI»ACBA5E+U*U; 
TWXOUT(LL'LtO3*I#N0CRLF); 
GO TO CASE4; 

end; 
End case 3; 



CASE4< 



begin % doing a ^ (dummy case) 
eojmsgi«true; wrjteasteriskisfalse; 

TlMEOFDAYCWORKCn#TlMECONV(TlME(n*TRUE)); 
W0RK[03I»DATE; TWXOUT (LL# WORK tO],l8# 2); 

End case *; 



END ALL cases; 



GO exit; 

ERRI G0eRR(W0RD'8)' 
EXITI 

END OF listit; 



56QU900 


r 0172 


^6012000 ' 


r 0177 


56012100 


r 0178 


56012200 ' 


r 0178 


56012300 • 


r 0180 


56012400 ' 


r 0182 


56612500 1 


r 0187 


56012600 - 


r 0187 


56012700 


r 0187 


56012600 ' 


r 0187 


56012900 1 


r 0187 


56013000 1 


r 0191 


56013100 ' 


r 0193 


56O132O0 ^ 


r 0194 


56013300 1 


r 0195 


56013400 ' 


r 0196 


56013500 1 


r 0196 


56013600 ' 


r 0196 


50013700 1 


r 0196 


56013800 1 


r 0196 


56813900 1 


r 0198 


56014000 ^ 


r 0199 


56014100 ' 


r 0199 


56014200 1 


r 0199 


56014210 1 


r 0199 


56014220 1 


r 0201 


56014300 1 


r 0202 


56914310 1 


r 0205 


56014400 1 


r 0205 


56014500 1 


r 0209 


56014600 1 


r 0209 


56014700 1 


r 0209 


56014800 1 


r 0209 


56914900 1 


r 0216 


56015000 1 


' 0218 


56015100 1 


r 0219 


56015200 1 


r 0219 


56015300 1 


r 0221 


56015400 1 


r 0225 


56015500 1 


r 0227 


56015600 1 


r 0229 


56015700 1 


' 0229 


56015800 1 


r 0229 


56615900 1 


' 0229 


56116000 1 


' 0229 


56016100 1 


0230 


56916200 1 


' 0234 


56016300 T 


0237 


56016400 1 


• 0240 


56016900 1 


' 0240 


56016600 T 


0240 


START OF SEGMENT * 


********* 97 


97 IS 6 L0N6« 


NEXT SEG 95 


56016700 1 


0241 


56016800 1 


• 0241 


56016900 1 


' 0246 


56917000 1 


0247 



95 IS 254 UONQ, NEXT SEG 



PROCEDURE EXECUTE(ICW,A); BOOLEAN LCW; ARRAY AC03; 

x*#*************************************************** ****************** 

BEGIN 



% HANOtER FOR "RUN", "EXECUTE" AND "COMPILE" REQUESTS 



REAL T^MAXSREG; 

LABEL CASEl#CHKTYPE 
DEFINE 

verbword 

NAMEwOROCNAMEWOROn 
TYPEwORD 

commonword 
stackwobd 

COREwORD 

pRocesswQRo 
iowqrd 
searchtype 
searchcount 

specname 
searchtoggle 

cqmpname 
savesize 



*runn*err*exit; 



ACBASE]«# 

AC8ASE + l + NAMEW0RDn#* 

ArBASP*?]!. 



ACBA$E^3]f^ 
ACBASE4-4]«« 
- ACBA$E-I>S]## 
> ACBA$E+6]«, 

* AtBASE*7]#, 

• At8ASE*83«* 




n A(BASE-*-10]ilt# 



DEFINE TRANSFEREUUATIONVALUES 



begin 

CQMMONVALUE Is 

stacksize u 

coresize i- 

processlimit «■ 

lOLlMlT t9 

End#; 



COMMONWORO; 

stackworo^ 
coremordj 

PROCESSWQROi 
lOWQROJ 



define errqrcerrqrl) » 
Begin 

MSGPTR«*ERRORlii 60 TO ERR* 
ENO«J 



CASE DOING OF 

BEGIN 

BEGIN X CASE 
LABEL TYPJ 



SYNTAX CHECK 



LABEL libname; 
REAL wo«o; 

BOOLEAN WITHT0QGLE#LIBT06GLE; 

BOOLEAN OBJECTTOGGLE; 

BOOLEAN PROCEDURC FINDNUMBERCA^MAXSREQ); 

REAL maxsreg; array ACOi; 



% VERB "NAME" 

X MFID#FID 

X FILE TYPE 

X COMMON VALUE 

X STACK SIZE 

X CORE LIMIT 

X PROCESS LIMIT 

X I/O LIMIT 

X TYPE FROM HEADER 

% NUMBER OF SEARCHES 

X NO "0" IN MFID X0502- 

X TOGGLE FOR CASE2 

X SPECIAL COMPILER XOSU" 
X WORDS USED ABOVE X05U- 



VALUE maxsheg; 



X0501- 
XQ502" 



57000000 
57001000 
37002000 
57Q03Q00 
57004000 
57005000 
57006000 
S7007000 
START OF SEGMENT 
57008000 
57009000 
37010000 
57011000 
57012000 
57013000 

57014000 
57015000 
57016000 
57017000 
57018000 
57019000 
57019500 
57020000 
57Q20S00 
57021000 
57022000 
57023000 
57024000 
57025000 
57026000 
57027000 
57^28000 
57029000 
57030000 
57031000 
57032000 
57033000 
57034000 
57035000 
57036000 
57037000 
57038000 
57039000 
57040000 
57041000 
START OF SEGMENT 
57041500 
57042000 
57043000 
57043900 
57044000 
57045000 



0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
******** 

0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 

0000 

0000 
0000 

0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 

********* 

0000 
0000 
0000 
0000 
0000 

oooo 



98 



99 



Begin 

i •'sreg" will point to the location of the number if 
x "findnumber" will be true if a number is located 
« "«•♦ characttrs are skipped (optional charactersj 

FlNONUlilBER»«FALSEi % MARK AS ERROR AT START 
FOR SREGmSREQ+I STEP I UNTIL MAXSHEQ DO 
BEGIN 

IF AtSREG].tll53»0 THEN % NUMERIC INPUT 
BEGIN 

MAXSREGl*0^ FINDNUMBERI»TRUE^ 
END 
ELSE IF NOT<AtSREQ3ftl«2]al AND AtSREG]*"*") THEN 

ENO^ 
SrEGIiSREG-1; X BACK UP FRQM END OF "FOR" STATEMENT 

End procedure finonumber; 





57046000 




0000 


THERE IS ONE 


57047000 




0000 




57Q48000 




0000 




57049000 




0000 




57050000 




0000 




57051000 




0000 




57052000 




0009 




57053000 




0005 




57054000 




0006 




57055000 




0007 




57056000 




0008 


MAXSREGisOj 


57057000 




0008 




57658000 




0013 




57059000 




0013 




57060000 




0015 



CLEARCACBASE+ntSAVESIZE-n; * 2ER0 OUT "STACK" WQHDS 
MAXSrEG «■ Ai:SREG«sBASE-ACBASEn,U8»l5] ♦ SREGJ 

VERBwORDJ* VERBTABLEUCSREQ]. 191933. [6142]; % VERB NAME FROM TABLE 
FOR SREG l«« SREG + l STEP I UNTIL MAXSREG DO 
BEGIN % EXAMINE THE PARAMETERS 

If AESREQ3.C3I33 GTR THEN % ALPHABETIC STRING 
BEGIN 

WORD <o A[SREG3«C6I423J 

IF WITHTOGGLE THEN X "WiTH" PRECEEOEO THIS WORD 
BEGIN 

MATCHCWORO#"LISTING«) 
BEGIN 

MATCH(vERBwORD*"COMPILE") COMMONWORD I s-l ELSE ERR0RC8); 
END 
ELSE 

BEGIN X CHECK LABEL EQUATION VALUES 

IF NOT FInDnUmBERCA#mAXSrE6) THEN ERR0RC8); 



LIBNAMEi 



MATCHCWORD, "STACK ") 
MATCH(WORO#"CORE ") 
MATCHCWORD/WPROCESS") 
MATCHCWQRD*"IQ "3 
MATCH(wORO*"COMMQN •♦) 

G0ERR(W0RD*8); X NONE 
end; X CHECKING LABEL 
END X IF WITHTOGGLE 
ELSE MATCH(WORD^"WITH ") 
ELSE MATCH(W0RD#"LIBRARY"3 
BEGIN 



5TACKW0RD |» 
COREWORD l> 
PRQCESSWORDl* 

lOWQRD l« 
COMMONWQRO tm 
OF THE ABOVE 
EQUATION VALUES 



ACSREG}«t36n 

ACSREG3tC33ll 

A[SHEG3'<60 

AtSREG3'<60 

ACSREQ3 



23 
53 



ELSE 
ELSE 
ELSE 
EISE 
ELSE 



WITHTOGGLE l» TRUE 



X0501' 



IF LiBTOGGLE OR NAMEWQR0C0}sO THEN ERRQR<8}, 

LIBTOGGLE l» TRUE; 

IF SREG ♦ 2 LEQ MAXSREG THEN FjXUSER CT* A* EXIT*FALSE);»0501- 

ENO 
ELSE MATCH (WORD*"OBJECT "J 
BEGIN 

MATCH (VERBWORO^"EXECUTE") 
IF NAMEWORD £03 ^ THEN ERROR C8) 



X0502' 
X0502' 
X0502" 
XMFIO ALREADY GIVEN 



57061000 




0017 


57062000 




0017 


57063000 




0020 


57064000 




0023 


57S65000 




0027 


57066000 




0031 


57067000 




0031 


57068000 




0033 


57069000 




0033 


57070000 




0035 


57071000 




0036 


57072000 




0036 


57073000 




0036 


57974000 




0038 


57073000 




0049 


57076000 




0049 


57077000 




0049 


57078000 




0050 


57079000 




0055 


57080000 




0060 


57081000 




0066 


57062000 




0072 


57083000 




0078 


57084000 




0064 


57085000 




0092 


57086000 




0092 


57087000 




0092 


57088000 




0095 


57089000 




0093 


57089500 




0099 


57090000 




0099 


57091000 




0105 


5709U00 




0106 


57092000 




QUI 


57092100 




0111 


57092200 




0114 


57092300 




0115 


57092400 


C 


0116 



ELSE 
ELSE 
END 
ELSE 



OBJECTTOGQLE 
ERROR (8) 



l» TRUE 



THEN 



MATCH {WORD,«SPECIAL") IF TYPEWORO EQL 
TYPEWQR0I199 ELSE ERROR (8) 
ELSE 

BEGIN X CHECK FOR FILE TYPEStFILE NAMES 

IF TI*FINOAWORD(ACSREQ3#TYPETABLEtl3»NUMOFTYPES)/0 

BEGIN X WORD IS A FILETYPE 
TYPJ IF TYPEWORO NEQ THEN ERR0R(8); X DUP TYPE 

IF NOT BQOLEANCT.tlnn THEN GOERRCTYPE '♦*19); 

TYPEW0R0l«'ABS<T); 

IF CHECK8lT(TYPEWaR0-l#RESTRlCTE0LANGUAQES) THEN 

ERRQR(«9}J X USER IS NOT PERMITTED THIS LANGUAGE 

END * IF FILE TYPE 
ELSE 

IF TYPEWORO EQL 99 THEN IF COMPNAME E«L THEN 
CQNPNAME !• WORD ELSE ERROR (8) ELSE 

BEGIN X CHECK FILE NAMES 

IF NAMEW0RDCREALCLIBTQGGtE)3 NEQ THEN ERRQRC8); 

IF NOT LIBTOGGLE THEN X MFID# 6 CHRS, MAXIMUM 
IF NOT OBJECTTOGGLE THEN 

IF H0RDiC42l6] NEQ " •• THEN ERR0RC42); % 6 CHRS M 

namew0r0crealclibt0qgle)]«»w0r0; 
end x file name check 
end x file type or file name 
end x alphabetic string 
Else if acsreg3bw/« then 

go to libname 
else if acsregj*"!" then x compiler name abbreviation 

BEGIN 

IF SRES»MAXSREG THEN ER«0R(8) ElSE WOROI^C AtSREGJ'SREQ* 

IF T»«FlNDALETTER(WORD#TYPETABLECn*NUMOFTYPES)^0 THEN 

ERRORCZO); X NOT FILE TYPE^ 

END 
Ei.SE ERR0R(8)i X NO OTHER ENTRIES ACCEPTABLE 
END SRE6 LOOP^ 

TEMP l« SAVESIZE; X SAVE SPACE IN "STACK" FOR VARIABLES 
IF OBJECTTOGGLE THEN 

If NAMtHQRD CO] w THEN 60ERR ClNCOMPL^ib ) 

ELSE SPECNAME »» It 
IF TYPEWORO EQL 99 THEN 

If COMPNAME EQL THEN QOE«R CINCOMPL"**); 
IF NAMEWOaOtO]»0 THEN X DEFAULT IS THE WORK FILE 

If FILENAME«0 THEN GOERRC-'NO FlLE"»n* 
IF TPCQUNT NEQ THEN X WORK FILE HAS BEEN ALTERED 

BEGIN 

Want i* vupdate; 

LiTOUTCWAITi "»NOCRLF); 
DOING t9 i; 

Go TO exit; 
End; 
go to casei; x no update required 

END CASE 01 



X0502' 
X0502' 
X0502' 
X05H" 
X05i4" 



THEN 



X05H- 
X0514- 



X0502' 



AX 



X0501" 



GO TYP; 



X0502' 
XQ502' 
X0502- 

X05H' 
XQ514' 



99 IS 



57092500 C 

57092000 C 

57092700 C 

57092800 C 

57092900 C 

57093000 
57094000 

57095000 
57e96000 
57097000 
57998000 
57099000 
57100000 
57101000 
57102000 
57103000 
57103100 
57103200 
57104000 
57105000 
57106000 
57106500 
57107000 
57106000 
57109000 
57110000 
57111000 
57112000 
57113000 
57117000 

57118000 
57119000 
57120000 
57121000 
57122000 
57123000 
57124000 
57125000 
57126000 
57126100 
57126200 
57126300 
57126400 
97126500 
57127000 
57128000 
57129000 
57130000 
57131000 
57132000 
57133000 
57134000 
57135000 
57136000 
57137000 

266 LONG* 
57138000 T 



0123 
0126 
0130 
0130 
0134 
0142 
0142 

0143 
0145 
0146 
0152 
0160 
0162 

0165 
0169 
0169 
0169 
0174 
0180 
0181 
0187 
0187 
0186 
0194 
0196 
0196 
0196 
0196 
0196 
0198 
0199 
0200 
0207 
0210 
0214 
0214 
0218 
0216 
0216 
0219 
0219 
0226 
0234 
0235 
0244 
0246 
0254 
0256 
0256 
0257 
0256 
0259 

Q2«l 
0261 

0263 
NEXT SCO 
0002 



98 



• > 



CHKTYPEl 



BEGIN % CASE I - WORKFILE UPDATED 
CASEli 

MATCHCVERBWORD^-COMPILE") % COMPILE ONLY 
BEGIN 

IF NAMEWORDtOJaO THEN X COMPILE THE WORKFILE 
BEGIN 
NAMEWOROCOJIsSQURCEFlLEi 

nameworocu^susercode; 

if typertord»0 then x file type not specified 

BEGIN 

TYPEWORO J» FILETYPE/ X USE WORK FILE TYPE 

IF TYPEWORO NEQ 99 THEN *0514" 

BEGIN X0514< 

IF NOT BOOLEAN ( (T»»TYPETABlE t TYPEW0R03 ) i C 1 1 U ) THEN X05U' 

GQERRCTYPE "M'); X NOT COMPILER TYPE 
IF CHECKBIT{TYPEW0RD"1*RESTRICTEDLANGUAGESJ THEN 

G0ERR<T,C6l423#49i; 
END! X0514' 

end; 
eno x if workfile or branch from below 
Else if searchcountso then x directory search not executed 

BEGIN 

IF NAMEWORDCn NEQ Q THEN X CHECK OUTSIDE FILE 

BEGIN 

MATCHCNAMEWORDCn#USERCOOE) ELSE GOERRC NAMEWOROt U#8 ); 

END 

ELSE namewordcui»usercode; 

FINDCLL&IAMC33J41I7]#0#NAMEWOROC03*NAMEWORDCX3»USERCOOE)1 
SEARCHTOGGLEI'^U X STOP PROCESSING ON SEARCH ERROR 
SEARCHCOUNT I" U 
DOING »* 2; 
WAITFOR |8 IAM; 

GO TO exit; 

END X IF DIRECTORY SEARCH WAS NOT EXECUTED 
ELSE 

BEGIN X DIRECTORY SEaRCH FINISHED* FILE IS IN DIRECTORY 
IF TYPEWORD « THEN TYPEWORD !« SEARCHTYPE^ » FROM HEADER 
GO TO CHKTYPe; 
end; X IF SEARCH WAS EXECUTED SUCCESSFULLY 

X CALL OUT THE COMPILER 

RUNl l« NAMEWOROCOJ; 

auN2taIF COMPNAME EQL THEN TYPETABLE C TYPEWORD 3 1 1 6 142] ELSE 

COMPNAME; X0514- 

TRANSFIREQUATlONVALUES; X LABEL EQUATION ENTRIES 

WANT «i vcompileit; 

DOING •• 3; X RETURN AFTER COMPILING 

GO TO exit; 

EnDJ X IF COMPILING 

X "RUN" OR "EXECUTE" VERB 

IF NAMEWOROCOJ'iO THEN X EXECUTE THE WORK FILE 
BEGIN 
NAMEW0RDt03«»SQURCEFlLEi 

nameworocu«*usercode; 



57139000 
57140000 
57141000 
57142000 
57143000 
57144000 

57145000 
57146000 
57147000 

57148000 
57149000 
57150000 
57150100 
57150200 
57151000 
57151100 
57151200 
57151300 
57152000 
57153000 
57154000 
57155000 
57156000 
57157000 
57158000 
57159000 
57160000 
57161000 
57162000 
57163000 
57164000 
57165000 
57166000 
57167000 
57168000 
57169000 
57170000 

57171000 
57172000 
57173000 
57174000 
57175000 
57176000 
5717^000 
57177050 
57178000 

57179000 
57180000 
57181000 
57182000 
57183000 
57184000 
57185000 
57186000 
57187000 
57188000 
57189000 



0002 

0002 
0003 
0004 
0005 
0007 
0007 
0010 
0012 

0014 
0014 
0016 
0018 
0019 
0021 
0029 
0032 
0038 
0036 
0036 
0036 
0040 
0041 

0043 
0043 
0053 
0053 
0056 
0062 
0065 
0068 
0066 
0069 
0070 
0070 
0070 
0070 
0075 
0076 
0076 
0076 
0076 
0076 
0076 
0084 
0085 
0093 
0093 
0094 
0099 
0095 
0095 
0095 
0095 
0097 
0097 
0100 



If typewqrd«o then typewordiifiietype; * use wohk file type 
If not goooqbj then % not the correct object fiue 

BEGIN 

MATCH(VERBWORD*''EXECUTE") GQERRCNO OBJ."*!/); 

S£aRCHC0UNTI*3; X AVOID DIRECTORY SEARCH AFTER COMPIUE 

GO TO CHKTYPE; X COMPILE THE SOURCE 

END^ X IF NOT A GOOD OBJECT FIUE 
NAMEH0RDC03I'"' "&QBJECTFIL£C6U2I 3631 X IN CASE SOURCE REMOVED 
Go TO RUNN; X OBJECT FII.E IS OK 
END X IF THE WORKFILE 
ELSE IF SEARCHCOUNT«»0 THEN X SEARCH FOR OBJECT FILE FIRST 
BEGIN 

If NAMEW0RD[U«0 then NAMEW0R0tni»USERC0DE; X Flo NOT SPECIFIED 
IIND (LL&IAM C33«41|7],0*IF SPECNAME » 1 THEN NAMEWORO CO] ELSE 

NAMEWORD CO]a6l363#NAM£WORO C 1 ] ^USERCODE ); X0302' 

Searchcount js i; 

DOING }« 2J 

WAITFOR i» iam; 
80 TO exit; 

END X INITIATING SEARCH 
ELSE IF SlARCHCOUNTsl THEN 
BEGIN 
If EVENTStn LEQ THEN 

BEGIN 

MATCH(nAMEW0RDC13#USERC0DE) else G0ERR(»'N0 OBJ.", 17); 

MAtCHCvERBWORD* "EXECUTE") QOERRC"NO OBJ,",!/); 

FlND(LL&IAMC33l4ll7],0*NAMEW0RDt03*NAMEW0RD[lJ'US£RC0DE); 

SEARCHCOUNT l» 2; 

SEaRCHTOGGLE !• 1; X STOP PROCESSING IF NO SOURCE 

DOING I" Zi 

WAITFOR l« IAM; 

GO TO exit; 

end; X IF OBJECT VERSION NOT ON DISK 
60 TO RUNN; X OBJECT FILE ON DISK 
END X RESULTS OF OBJECT SEARCH 
ELSE IF SEARCHC0UNT»2 THEN X SOURCE IS IN DIRECTORY 
BEGIN 

If typewqro»o then typeworoi3$earchtype; 
Go TO ohktype; x compile the source 

WAS present in directory 



FOR object 
X RESULTS OF 



object search 



NO object in directory 

ELSE 



End; x if source 
runni 

RUNl l» If SPECNAME » 1 

RUN2l»NAMEW0RDtU; 

TRANSFEREQUATIQNVALUES; 

WANT »» vdispatch; 

IAM IS 0; 

GO TO exit; 

END CASE i; 



THEN NAMeWORq [03 ELSE NAMewORq t03.C6«363; 
X LABEL EQUATION VALUES 



BEGIN X CASE 2 • RESULTS OF DIRECTORY SEARCH 

IF BqQLEANCSeARCHTOGGLE) then X STOP PROCESSING ON NEGATIVE SEARCH 

IF EVENTStn NEQ 7 THEN GOERRC NAMEWORDtO 3 #2 ); X NOT IN LIBRARY 
IF CT»»EVENTS[2J,C36«63) GTR NUMOFTYPES THEN TI«Q; 

searchtypei*t; 

GO To CASEi; 
END CASE 2; 



57190000 


T 


0102 


57191000 




0106 


57192000 




0107 


57192100 




0108 


57193000 




0117 


57194000 




0119 


57195000 




0120 


57196000 




0120 


57197000 




0123 


57198000 




0124 


57199000 




0124 


57200000 




0126 


57201000 




0127 


57202000 




0132 


57202500 




0132 


57203000 




0143 


57204000 




0145 


57205000 




0146 


57206000 




0147 


57207000 




0147 


57208000 




0147 


57209000 




0150 


57810000 




0151 


57211000 




0152 


57212000 




0152 


57212100 




0162 


57213000 




0171 


57214000 




0177 


57215000 




0179 


57216000 




0182 


57217000 




0183 


57216000 




0184 


57219000 




0184 


57220000 




0164 


57221000 




0185 


57222000 




0185 


57223000 




0187 


57224000 




0168 


57225000 




0193 


57226000 




0193 


57227000 




0193 


57228000 




0194 


57229000 




0201 


57230000 




0204 


57231000 




0211 


57232000 




0212 


57233000 




0213 


57234000 




0213 


57235000 




0214 


57236000 




0214 


57237000 




0214 


57238000 




0215 


57B3VOOO 




0223 


57240000 




0226 


57241000 




0229 


57242000 




0229 


57243000 




0230 



< 



BEGIN % C*SE 3 - AFTER COMPILING 

HATCHCNAMEMOROtOJ'SOURCEFRE) 
BEGIN X COMPILED THE WORKFILE 
0BJECTFILEI»SUURCEFILE.C6I36]; 

GooooBJ i» true; 
cancelckptcac*3); 

Enid; 

MATeHCVERBWORD*''COMPlLE'') ELSE 60 TO RUNNj 

lAM I* o; 

END CASE 3j 
END ALL CASESJ 



GO TO Exit; 

ERR{ ERRSWIaiACSREQ]; WANT MWAITFURMOi IAMt«VERROR; 



EXITI 

END PROCEDURE EXLCUTE; 



57244000 T 


0230 




57245000 T 


0230 




57246000 T 


0230 




57247000 T 


0233 




57248000 T 


0235 




57249000 T 


0237 




57250000 T 


0239 




57251000 T 


0239 




57252000 T 


0241 




57253000 T 


0242 




57254000 T 


0242 




START OF SEGMENT ********** 


100 


100 IS 5 LONG* 


NEXT SEG 


98 


57255000 T 


0243 




57256000 T 


0243 




57257000 T 


0245 




57258000 T 


0245 




57259000 T 


0248 




57260000 T 


0248 




57261000 T 


0248 




98 IS 254 LONG» 


NEXT SEG 


e 



x**********************************************************************% 

PROCEDURE L0ADITCLCW#A); BOOLEAN LCw; ARRAY ACOj; 

X**********************************************************************{| 

BEGIN 

DEFINE NAMEWORD * ACBASE] #* 

TYPEWORO a ACeASE*n«* 
rECOrDCOUNT « AtBASE+23## 
OBJECTNAME • ACBASE+33#» 
0I5KTQGGLE » ACBASE+43#* 
SAVESIZE » 5#; 

DEFINE ERRCERR1/ERR2)* 
BEGIN 

ERRSwloERRi; MSGPTRl«iERR2; GO TO ERROR; 
END! I 

LABEL CASE3* ERROR* EXIT; 

REAL t; 

CASE DOING OF 

fi IT. /m I M 

begin x case - syntax check 
If filename neo o then 

IF TPCOUNT NEQ OR FILENAME NE« SOURCEFlLE THEN 
IF NOT NOSAVE THEN 
BEGIN 

nosavei^true; errc^no save''#48); 
end; 

SRE6 t» BASE " ACBASE3; 

Clear t AtBASE3 #save5 iZE-i ); 
TEMP jsi savesue; 



START 



56000000 
56001000 
58002000 
58003000 
58004000 
OF SEGMENT 
58005000 
58006000 
58007000 
58008000 
58009000 

58010000 
56OU0O0 
58012000 
58013000 
56014000 
58Q13000 
58016000 
58017000 
58018000 
58019000 
58020000 
58021000 

58022000 
58023000 

58024000 
58025000 
58026000 
58027000 
58028000 
58029000 
58*30000 



0061 
0061 
0061 
0061 
0061 
********* 

0000 
0000 
0000 
0000 
0000 
0000 

0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 

0000 
0001 

0005 
0006 
0007 
0013 
0013 
0014 
0016 



101 



If ACSREG3.C16I153 NEQ I THEN ERR("NAME 



6); 



If CTl»ACSREGI«SRES*niC3l33)»!0 THEN ERRCNAME »,6ii 
If T GTR 6 THEN ERRC0#42); 

IF FlNDAWORDCACSREQj*RESWROTA8LEtn»NUMOFRESWR05)^0 THEN ERR10»8); 

NaMEWQRO I« ACSREQ].C6IA2]J 

FlNO(tl&IAMt33Ull7 3*0*NAMEWORO#USERCOOE*USERCaOE); 

DOING »* i; 
waitfqr i« iamj 
End cftSE o; 

X . , ♦ t . i • . • • • t . • • • . t . » • f • . t • • 

begin % CASE I • RESULTS OF SEARCH FOR SOURCE FILE 

IF EVENTSCn NEQ 7 THEN ERR(NAMEW0R0»2 ); 

IF (Tt«EVENTSt2]. £36163) UEQ NUMOFTYPES THEN TYPEWORDt«TJ 

ReCQBoCOUNT i9 EVENTSC33 ♦ i; X RECORD COUNT 

IF NOT CONCISE THEN GENFlLiNE(NAMEWORO# TYPETABtEC T YPEWORD 3 ); 

FlNO{LL&lAMt33Ull7 3#0*NAMEWORO.t6l36 3»USERCOOE*gSERCOOE); 

WaITFOR J« IAMJ 

DOING «« Zi 

End case i; 
X, ••..,•.. , ,,,,.,.,.,,,,,., .•••.••.,...•• 

begin x case 2 - results of search for object file or setupflles 
If not booleancdisktoggle) then 

IF EVENT5[13<»7 THEN OBJECTNAME l» NAMEWORD. t6» 363i 
IF FILCSOK THEN CANCELCKPT( AC *3 ) ELSE 
BEGIN 

IF NOT BOOLEANtDISKTQGGLE) THEN % NO RETRY FOR DISK 
BEGIN 

DISKTOGGLE »* U 
WANT «» VSETUPFILESi 

«0 exit; »0406- 

ENO 
ELSE 
X VOID A CARD XOaOft' 

ERRC'NO DISK^MOJJ X NO USER DISK 
ENOi 
IF NOT CONCISE THEN LITOUT{''LOADInG'',NOCRLF ); 

If typeword • 8 then x type data file 

BEGIN 

IF NOT CONCISE THEN 
BEGIN 

TWX0UT(LL*LC03#0#2)i 

LC03 !• "ND LOAD" & "E''C1»43I53; 

TWXQUTCLL#Lt03#8*l)i 

CNDi 
WRlTEASTERISK |s TRUE^ 
GO TO CASE3; 






ENOi 
WORKt33 
W0RKC03 
WqRK[i3 
W0RK[23 
RUNI I* 
SUN2 l«? 

Want i« 
0iskwrite(espu; 

WRlTEASTERISK t« 

eojmsg »« 



NAHEWORDJ 
Oi 

(LL+SY5TEM) 
WORKC43 Is 



& C0NcISEBlT[6U7ll3; 

ERRsw t« usercooe; 



"LOAD "f 
"CANOE "; 

voispatch; 



CONCISEi 
NOT CQNCISEi 



58031000 




0017 


58932000 




0023 


58Q33000 




0030 


58034000 




0033 


58033000 




0039 


58036000 




0041 


58037000 




0045 


58038000 




0046 


58039000 




O047 


58040000 




0047 


58041000 




0047 


58Q42000 




0047 


58043000 




0052 


58044000 




0056 


58045000 




0058 


58046000 




0062 


58047000 




0067 


58048000 




0068 


58049000 




0068 


58050000 




0069 


58051000 




0069 


58052000 




0069 


58953000 




0070 


58054000 




0075 


58055000 




0077 


58056000 




0078 


58057000 




0079 


58858000 




0079 


58059000 




0081 


51060000 




0082 


58Q6I000 




0082 


58062000 




0082 


58063000 




0082 


58064000 




0082 


58067000 




0087 


58068000 




0087 


58069000 




0089 


58070000 




0091 


58071000 




0091 


58072000 




0093 


58673000 




0093 


58074000 




0095 


58075000 




0097 


58076000 




0099 


58077000 




0099 


58078000 




oioi 


58079000 




0105 


56080000 




0105 


58081000 




0106 


58082000 




0107 


58983000 




out 


58884000 




0U4 


58985000 




ous 


58086000 




0U6 


58987000 




0117 


58068QO0 




0121 


58089000 




0124 



• ! 
ft 



,\* 



I» 



GOODOBvU«BCSOURCEFlLEl»FlueNAMEl*«FlUETYPEl»UASTHECOROl»0)) 
DOING t« 3i 
GO TO EXIT^ 

End case zi 



BE 
IF 



CASE3t 



GIN I CASE 3 - RETURN AFTER lOAO OR BRANCH 
C0MM0NCELU«Ua3»0 THEN X LOAD MAS OK 
BEGIN 



ON DATA FItE 



FILENAME 

FILCTYPE 

GOOOOBJ 

UASTRECORD 

NOSAVE 

SEQLAST 

INCREMENT 



Is 
ts 
I s 

Is 



<« NAMEMORDJ 



NEQ o; 



END 



lA 

En 



SOuRCEFIlE 

typeword; 

COBslECTFlUEInOBJECTNAME) 

RECQRDCOUNTi 

FALSEI 

SEQIN Ik Oj 

loo; 
ti^makefncis^juw); 

MAKEFItECLL&13C33l41l7]*l»T*USERcO0E'FIL.ETYPt#0); 

canceuckptcat*3); x save the name of the work file 
end; 

M iff o; 

D CASE 3; 

ALL cases; 



GO TO exit; 

ERROR i 

IF ERRSWaO THEN ERRSW < sAC SREG 3 J 

lAM IS vebrqr; 

WANT l8 WtlTFOR I" O; 
EXITI 

END PROCEDURE LOAOIT; 



3S090000 T 


0127 


seeviooo t 


0133 


58092000 T 


0134 


SS993000 T 


0137 


58894000 T 


0137 


58095000 T 


0137 


58895100 T 


0137 


58695200 T 


0139 


58096000 T 


0139 


58097000 T 


0140 


58098000 T 


0142 


58099000 T 


0144 


58100000 T 


0149 


56101000 T 


0151 


58102000 T 


0153 


58103000 T 


0155 


58104000 T 


0156 


58105000 T 


0158 


58105010 T 


0162 


58105100 T 


0163 


58106000 T 


0163 


58107000 T 


0164 


58108000 T 


0164 


TART OF SEGMENT ********** lOg 


102 IS 5 LONG* 


NEXT SEG 101 


58109000 T 


0165 


58110000 T 


0165 


58111000 T 


0166 


58112000 T 


0168 


58113000 T 


0169 


58114000 T 


0170 


58115000 T 


0171 


101 IS 174 LONG* 


NEXT 5EG 8 



X******************************** *************************************** 

procedure saverclcw^a); boolean lcw; array acoj; 

X**************************************************** ******************* 

begin 

LABEL ERR#CASEl#FINiSHEO#EXlT; 

REAL t»f; 

define defaultsavefactor « 7#; 
case doing of 
begin 

begin X CASE - SYNTAX ANALYSIS 
If FiLENAMEsO THEN X NO WQHK FILE 

BEGIN 

ERRSWlK^NO FILE"; MSGPTR Is U GO TO ERR; 

end; 

If CTi»ACSREQ|bBA5E-ACBA5E33,C18I153) GTR I THEN % TOO MANY PARAMS 
BEGIN 
ERRSWl» AC5REG+23; MSGPTR li 4; GO TO ERR; 

end; 

IF T » THEN A[BAS£] ♦ -I ELSE X0105- 



59900000 T 0061 

59000100 T 0061 

59800200 T 0061 

59000300 T 0061 

59800400 T 0061 
START OF SEGMENT 

59000500 T 0000 

59000600 T 0000 

59000700 T 0000 

59000800 T 0000 

59000900 T 0000 

59001000 T 0000 

59001100 T 0001 

59001200 T 0002 

5900UOO T 0006 

59001400 T 0006 

59001500 T 0009 

59001600 T 0010 

59601700 T 0013 

59001600 P 0013 



********** 1Q3 



If <ACBASE3«»ACSREG+U)ttl«53 NEQ THEN % NOT UN$IGNEO NUMBER 
BEGIN 
ERRSWI»A[BASE]; MSGPTRl*^; GO TO ERR/ 

END' 

Temp i* a 

If TRcBUNT » THEN GO TO CASEU % WORK FIUE ALREADY UPDATED 

Want i» vupdatej 

DOING Is U 

litoutcwait- "*nocrlf); 
End; % case o 



CASEU 



BEGIN X CASE I - WORKFILE UPDATED 

IF NOT CONCISE THEN GENFlLlNECFlLENAME^TYPETABUttFRET YPE 3 )l 
MATCH(FlLENAMt*SOURCEFlLE) X FIUE ALREADY SAVED 
BEGIN 

FIND(LL&IAM[33I41I73#0*FILENAME#USERC0DE*USERC0DE); 
DOING l«5 3* 
WAITFOR »» IAM; 
END 
ELSE 

BEGIN 

T«»LL&VMCPMSGC33I41I73; 

REPLACE(T#S0URCEFlLE#USERC0DE#FlLENAME,USERCQOE* 
(F * IF AtBASEJ < THEN ELSE ACBA5E]) & *0105- 

FlLETYPEC32ltt2l6] & UNLOCKTOGGLE t3lU7ll3Ji X0105- 

IF GOOOOBJ THEN 

REPLACE(T*S0URCEFILE,C6«36 3#USERC00E# 
FILENAME, Ul 36], USERCOOE* 

F4FlLETYPEC32l42t6]&uNL0CKT06GLEt3ll47in) 
ELSE REM0VEFILECT*FILENAME.C6»36]#USERC0DE); 

wanT«»waitfori»vmcpmsg; 

DOING t» param u libmsgctr i« 2; 

libmtnce i» true* 

ENDi 

End; x case i 

X .,• .•....•..•.t.,..., •....,.« 

begin X case 2 • results of file replace 

IF AtBiSE+n NEQ 7 THEN X NOT REPLACED - PROBABLY FILE IN USE 
BEGIN 
ERRSWlB^IGNOREO"; MSGPTH I* 22; GO TO ERR; 

end; 

Ti«MAKEFN("lS"#LL); 
MAKEFILEtLL&l3C33Ull73*l#T*USERCOOE#FlLETYPE#Oj; 

sourcepileiwFjlename; 

If GOOOOBJ THEN OBJECTFILE ^FILENAME. t6 »36 3; 
IF FILESOK THEN CANCELCKPTC AC*] ); 

FINISHED' 

LlTOUTCSAVEO. •'#2"C0NCIS£8IT j; 
WrITEASTERISK \m FALSE; 
IAM las 0; 

eno; X CASE 2 

X •«,,••...,,,.,, 1 1 1 f . t f «..« f . f • f . , * t .... « t ..... t .... . 

BEGIN X CASE 3 • RESULTS OF DIRECTORY SEARCH 
IF EVENTSCn LEO THEN 
BEGIN 

errsw »» filename; msgptr «» 67; go to err; 



59001900 T 


0016 


39602000 T 


0019 


59i02l00 T 


0020 


59002200 T 


0022 


59002300 T 


0022 


59002400 T 


0023 


59002500 T 


0025 


59902600 T 


0026 


59002700 T 


0027 


59002800 T 


0028 


59002900 T 


0028 


59003000 T 


0028 


59003100 T 


0028 


59003200 T 


0029 


59003300 T 


0032 


59003400 T 


0034 


59003500 T 


0035 


59003600 T 


0039 


59003700 T 


0039 


59003800 T 


0040 


59003900 T 


0040 


59004000 T 


0040 


59004100 T 


0043 


59804300 T 


0044 


59004400 P 


0044 


59004450 C 


0044 


59004500 T 


0054 


59804600 T 


0054 


59804700 T 


0054 


59004710 T 


0054 


59804800 T 


0054 


59004900 T 


0066 


59005000 T 


0067 


59005X00 T 


0069 


59005200 T 


0072 


59005300 T 


0072 


59805400 T 


0072 


59005500 T 


0072 


59005600 T 


0072 


59005700 T 


0074 


59005800 T 


0074 


59005900 T 


0078 


59006000 T 


0078 


59006100 T 


0079 


59006200 T 


0083 


59806300 T 


0084 


59806400 T 


0088 


59006500 T 


0090 


59006600 T 


0091 


59006700 T 


0093 


59006800 T 


0095 


59006900 T 


0096 


59007000 T 


0096 


59007100 T 


0096 


59007200 T 


0096 


598Q7300 T 


0097 


59007400 T 


0098 






«♦ 



.# 



e 



FIUETYPE OR ACiASEJ GEQ OR 
THEN % CHANGE HEADER 



end; 
if eventsc2j.c36i63 neq 
booleancunlucktoggle) 

BEGIN 

LUD15KREAD «» AtBASE+l] '• EVEnTS[23 , C16I1S]; X HEAOER ADDRESS 

WANT «w voiskread; 

TEMP ts; 2i 
DOING «» 4j 
END 

EtSE 60 TO finished; 

ENOi X CASE 3 



BEGIN X CASE 4 

W0RKU3fC36l63 

IF AtBASE3 GEQ 

IF BOOLEANCUNl 

IF XORKCSJt 

W0RKt53 

OlSKWRlTECAtBA 

If QOODOBJ AND 

BEGIN X CHA 

FlN0(t,L«IAM 

DOING IS 5i 

WAITFOR «» 

END 
EtSE GO TO FIN 

End; % case 4 



• HEADER 

MPIUETYP 

THEN W 

OCKTOGGUE 
[II13«0 T 
la MURK[6 
SE+U); 

(ACBASE3 
NGE OBJEC 
[33141173 

IAm; 
ISHEDi 



IN CORE 

e; 

ORK[33.t2«l03l»ACBASE3; X SAVE FACTOR 

) THEN 

HEN X NOT GUARDED 

3 I' I2i 

GEO OR BOOIEANCUNLOCKTUGQLE)) THEN 
T HEADER 
#0*FII.ENAMEf c6l36 3*USERCODE*USERCaDE); 



begin x case 5 - result 
If eventscu IpEq o then 

LUDISKREAD «« AtBASE-n3 
HaNT ti VDISKKEADJ 
DOING «« 6/ 

End; x case 5; 



S OF OBJECT 61RECTORY SEARCH 

GO TO finished; 

t» EVENTSt23fCieil53; 



BEGIN X CASE (> " OBJECT 

if acbase3 40 then workc 

If bqoleancunlOcktoggle 
if ><0rkc53,ciiu«0 t 

WORKC53 «a WQRKC6 
DISKWRITECACBASE+U); 
GO TO fiNlSHEO; 
EnO; X CASE 6 

END aul cases; 



GO TO exit; 

ERR I 

WANTI»WAITF0R»»0; IAMMVERROR; 

EXITI 

END PROCEDURE SAVER; 



HEADER IN CORE 
33.C2I103 ♦ At8ASE3; 
3 THEN 

HEN X NOT GUARDED 
3 »«< 12; 



X0105' 



59007500 T 


oioa 


59007600 T 


0102 


59007610 T 


0105 


59007700 T 


0106 


59007300 T 


0106 


59107900 T 


ouo 


59808000 T 


oiu 


59008100 T 


0112 


59008200 T 


0U2 


59008300 T 


0112 


59Q08400 T 


0U2 


59008500 T 


0U3 


59008600 T 


OiU 


59808700 T 


0113 


59008800 T 


0116 


59008810 T 


0120 


59008820 T 


0121 


59008830 T 


0123 


59808900 T 


0126 


59909000 T 


0130 


59009100 T 


0133 


59009200 T 


0133 


59009300 T 


0138 


59009*00 T 


0139 


59009500 T 


0139 


59009600 T 


0139 


59G09700 T 


0139 


59809800 T 


OUO 


59809900 T 


0140 


59810000 T 


0140 


59010100 T 


0141 


59010200 T 


0145 


59810300 T 


0146 


59010400 T 


0147 


59010500 T 


0147 


59810600 T 


0147 


59010700 P 


0147 


59010710 T 


0151 


59010720 T 


0152 


59010730 T 


0154 


59810800 T 


0157 


59810900 T 


01«1 


59811000 T 


0162 


59QIU00 T 


0162 


START OF SEGMENT * 


********* 104 


104 IS 8 WONG, 


NEXT SEG 103 


59811200 T 


0163 


59Q11300 T 


0163 


59011400 T 


0164 


59011S00 T 


0166 


590U600 T 


0166 


103 IS 169 U0NG» 


NEXT SCO 8 



x*******«**************************************************************x 



61000000 T 0061 



PROCEDURE 



REMQVECUCW^A); 



boulean lcm; array ACO]i 



X**************************************^*******************************]; 



BOOLEAN 

REAU 
UABEU 



BEGIN 



S» Oi 



wrkfiue#err#exit; 

if booleancdqing) then xcheck results, 

BEGIN WCl»At5REG3i 

FOR ll«0 STEP 1 UNTIL WC DQ 
BEGIN 

IF XI«AtBASE*I3 NE« 6 THEN 

IF X.C6J63 NEQ THEN 
BEGIN 

LITOUT("ERRl "^NOCRLFJ; 

LITOUT(X*CRLF); M5GPTR»»2; 
END IFI END FORI 

iAMt*oi GO exit; 

END CHECKING RESULTS! 

S 19 U )<P eCMCl!>l}J 

IF PC l» ACSREG»»BASE-ACBaSE33iFF w Q THEN 



START 



WRKFILEI 



BEGIN 



ENO^ 



IF FILENAME « THEN QOeRR ("NO FILE^'ij; 
TPCaUNTI«FlLENAMEl«SOURCEFILE»»iIAM»sOl 

filesaway cnot s»usercode)j 

filesokj«faise; 

if not s then goodqbjub (objectfileuo j ; 

GO EXIT* 



»0S27' 
X0527" 
X0527' 
X0527' 
»0527' 
X0S27' 



ERRI 



IF PC GTR 10 THEN ACSREG+U l« "TOQMANY"; 

WHRE I USS PC DO 
BEGIN 

I i« I + i; X»*ACSR6G+I3,C6U23; 

IF S AND THEN ELSE 

IF XiU2»63 NEQ " "THEN X ILLEGAL PARAMETERi 
BEGIN 

ERRsw i« x; 

MSGPOINTER l« UZi » 6 CHRS MAX 

ERR0RCSREG*I#LCW#At*3)i 

GO EXlTi 
END IF ILLEGAL PARAMETER; 

MATCHCX*"§0URCE '')8EGIN S|«TRUE; 0I«FALSE; END ELSE 

MATCHtX, "OBJECT "JSEGIN Ol^TRUEi St«FALSE; END ELSE 
BEGIN X IF WE GOT HERE WORD IS NOT SOURCE OR OBJECTi 

MATCHCX* SOURCEFILE) G0ERR("WRKFILE"* H); 

IF S THEN BEGIN AtBASE+WCJ I sX; INC(WC); ENDi 

IF X,t42l63 EQL " " THEN 

IF THEN BEGIN AtBASE*WC3 l»Xt t6l 363; INC(HC); ENO; 
END IF A LEGAL PARAMETER; 

END OF ALL parameters; 

IF WC LEQ 1 THEN XNO FILE NAMES SPECIFIED 
IF THEN 

IF GOODUBJ THEN 



X0508» 



X0508" 



BEGIN 



OBJECTFILE»»0; 
GOODQBJtwFALSE; 



X0527' 
X0527' 
X0527' 
X0527' 
X0527' 



61000100 




0061 


61000200 




0061 


61000300 




0061 


61000400 




0061 


OF SEGMENT 


********* 


61000900 




0000 


61000600 




0000 


61000610 




0000 


61000618 




0000 


61000626 




OOOl 


61000694 




0003 


61000642 




0003 


61000650 




0005 


61000698 




0006 


61000666 




0007 


61000674 




0008 


61000682 




0010 


61000690 




0012 


61000698 




0016 


61000700 




0016 


61000800 




0017 


61000900 




0021 


61901000 




0021 


61001050 




0022 


6100U00 




0029 


6100U10 




0034 


61001120 




0039 


61001130 




0037 


61001200 




0042 


61001300 




0042 


61801400 




0042 


61901900 




0045 


61001600 




0047 


61601700 




0047 


61001750 




0051 


61001800 




0052 


61901900 




0055 


61002000 




0095 


61002100 




0056 


61002200 




0057 


61002300 




0060 


61002400 




0061 


61002500 




0061 


61002600 




0064 


61902700 




0069 


61002800 




0071 


61002900 




0079 


61002950 




0082 


61003000 




0064 


61003100 




0088 


61003200 




0088 


610032X0 




0089 


61003213 




0090 


61003216 




0090 


61003220 




0092 


61Q03223 




0092 


61003226 




0093 



105 









END 



EXIT« 



XlsMAKEFN C IS^^Ut ); X0527- 

REMOVEFIUE (Ul & 13 1 33J 4i I 7 3,X. [6 « 363 ^USERCODE Ji 

X0527- 
X0527- 
»0527- 
X0527- 
("NO FIUE''#26) X0527" 

X0527' 
X0527" 



lAMlaO; 

GO exit; 

ELSE 

QOERR 
ElSE 

GO TO WRKFIUEi 
DOlNG»«i; WANTIsWAITFORtwVMCPMSG; 

l,iaMTNCEI»»TRUEi At INCCSREG ) 3 I 'WC I «PARAM I »!tIBMSGCTRI •WC" 
FOR U*l STEP I UNTIL WC 00 

REM0VEFILE(LL&wAITF0RC33l4l«73#AtBASE*n# 
USERC00E)i 

END OF REMOVE PROCEDURE; 



M 



105 IS 



61003830 P 
61903233 C 
61003236 C 
61003240 P 
61003243 C 
61103246 C 
61003250 P 
61003233 C 
61003260 P 
61003900 T 
61004000 T 
61004100 T 
61904200 T 
61004300 T 
61804400 T 
61904500 T 
130 LONG* 



0096 
0097 
OlOl 
0102 
0102 
0102 
0102 
0109 
0109 
0109 
OUl 
Olid 
0U9 
0119 
0125 
0126 
NEXT SEG 



PROCEDURE CHANGE(t.CH*A); BOOLEAN lCw; ARRAY ACOj; 

BEGIN 
%********* START OF CHANGE CODE 
LABEL exit; 




REAL T; 

TEMPl«6i X0518- 

CASE DOING QF 
BEGIN 

BEGIN % CASE 
CASE CHANGEWHICH(A[*3? OF 
/BEGIN 
/ 'BEGIN 

lAM !■ vebror; 
GO Exit 

ENOi 

BEGIN X WHICH«1-"'W0RKFILE TYPE 

IF FILENAME « THEN GUERRl^NO FILE"*!); 
IF fILETYPEksB AND ACBA5E*l3 NEQ 8 THEN G0ERR("DATA "*6U; 

FIuETYPE »» ACBASE+IJ; 
X VOID A CARD XOSIS' 

FIND CLL&IAM 1 33I41I7]#0,MAKEFN ("IS-zLL )#USERCOOE»USERCODE Ji X0518* 

TEMP l« 3; 

DOING «*> 5; 

WAITFQR I" IAM; 

end; 

begin x which.2— filename type 
find (ll4iam c 33f 411 73,0* a cbase3*a t8ase+53*usercooe); xq518- 

DOINQ l« 1; 
WAITfOR »« IAM; 

end; 
/ begin x which»3 — name to name 
( find (ll4iam c33uii73*0#a c8ase+13*a t8ase+63*userc00e) ; x0518- 

^\ DOING »» 3; WAITFOR I » IAM; 

^end; 



62000000 T 0061 

62000100 T 0061 

62000200 T 0061 

62000300 T 0061 

62000400 T 0061 
START OF SEGMENT 

62900410 T 0000 

62000500 P 0000 

62900600 T 0000 

62000700 T 0001 

62000800 T OOOl 

62000900 T OOOl 

62001000 T 0002 

62001100 T 0003 

62001200 T 0003 

62001300 T 0004 

62001400 T 0004 

62001500 T 0005 

62001600 T 0005 

62001650 T 0012 

62001700 T 0021 

62Q01800 P 0023 

62001900 P 0023 

62902000 T 0027 

62902100 T 0028 

62902200 T 0029 

62002300 T 0029 

62002400 T 0030 

62902500 P 0030 

62902600 T 0034 

62002700 T 0035 

62002800 T 0036 

62902900 T 0036 

62003000 P 0036 

62903100 T 0041 

62903200 T 0043 



********** 106 




BEGIN % WHICH-A-'UOCK 

GOERRC"LOCK »flb)i 
COMMENT 

PUT 
UOCK 

STUrF 

here; 
end; 

begin x which«5-'passw0rd 
if ll"0 then g0ekrc"paswqr0"#«9 ) > 

lAM |s VCMNQPSWO; 

DOING i« o; 

GO EXIT 

end; 

begin % which«6 -- change name,., 
if ll»0 then soerrcname ">'*9)i 
iamisvchngname; go exit; 

END CASE 6; 

BEGIN % WHICH " If CHANGE 
IF A CBASE+U 9 2 THEN IF 



FIND CLL&IAM 
DOING !■ 7; 

waitfor !• iam; 
end; 

END WHICH cases; 



SAVE "FACTOR" 

A CBASE]fC42l63 EQt " " THEN 
A CBASE]i«A CBASE]«C6I36} ELSE 
GOERR (A (BASE}^42}; 
C33UII73*Q#A tBASE3fA tBASE+5] *USERCOUE ); 



»0Sl8' 
X0518' 
X0518 
»0518' 




CASE 0; 

% case 1- GET HEADERCCHaNGE TYPE) 
F SCHEDULINE and BOOLEAN (SCHEDN aME. C 1 « U ) THEN ELSE 3; »0518- 
VENTSCU LSS T THEN GOERRC ACBASE3'2 ); 
SKREAD »« ACBASE*23 Js EVENTS t 2] .FF; 

Is VOISKREAO; 
G»'»2; X0518- 

CASE i; 

X CASE 2 
t43,C36i63 l» ACBASE + n; 
WRITE(AtBASE+2]); 
CHEDUUINE THEN 
F BOOUEANCSCHEONAMEttnUJ THEN X TERMINATING SCHEDULE 

/BEGIN 

/ IAM \m WANT %m WAITFOR %m Qi 
[ SCHEDGOTOC-U; 

\ GO TO exit; 
>ENo; 

CBA5E+5] EQL USERCOOE THEN *05X8- 

HCAtBASE]#FlLENAME> IF FILETYPE NEO 8 THEN 
FILETYPE t* AtBASE*n; 

HCFILINAME#S0URCEFILE) 

FlN0CLL&IAMC33l4ll7],O,S0URCEFILE*U5ERC00E#U5ERC0OE); 
ING l» 5; WAITFOR Is IAM; 
EXIT 

IAM (« o; 



62003300 T 
62003400 T 
62003500 T 
62003600 T 
62003700 T 
62003800 T 
62003900 T 
62004000 T 
62004100 T 
62004U0 T 
6290*200 T 
62004300 T 
62004400 T 
62004S00 T 
62004520 T 
62004530 T 
62004540 T 
62004560 T 

62004562 T 

62004563 C 

62004564 P 

62004565 C 

62004566 P 

62004568 T 
62004570 T 
62004572 T 
62004600 T 
START OF SEGMENT ** 
107 IS 9 LONG* 



62004700 
62004800 
62004900 
62004910 
62005000 
62005100 
62005200 
62005300 
62005400 
62005500 
62005600 
62005610 
62005620 
62005630 
62005640 
62005650 
62005660 
62005670 
62005680 
62005700 
62005600 
62005900 
62Q06000 
62906^00 
62006200 
62006300 
62006400 
62006500 



T 
T 
P 

T 

T 

T 
P 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0043 
0043 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0058 
0058 
0059 
0060 
0060 
0060 
0068 
0069 
0069 
0069 
0073 
0075 
0081 

0085 
0086 
0087 

0087 

******** 

NEXT SEG 
0088 
0088 
0086 
0092 
0098 
0102 
0103 
0104 
0104 
0104 
0107 
0111 
0112 
0114 
0114 
0116 
0119 
0120 
0120 
0122 
0126 
0128 
0126 
0131 
0135 
0137 
0137 
0137 



107 
106 






HA^I^'^^V' 




oof 



0' 



/ 



•pb 



iO'^'- 



.^ 



y 



.(.' 



CBAse4>5]«A cbase:4-2]#a i;ba3e<i-6])j 

THCN 




4 

NEU 

EQL 



7 THEN GOERH ( 
USERCOOE THEN 



A CBASE*63,2); 




END CASE 2i 

BEGIN X CASE 3 * CHANGING NAMES 

IF EVENTSCU GEO THEN GOERRC ACBASE+U »3 ) ^ 

ACBA$E-»'4] Im CACBASE*2] l» A [BASE^-n } , [6 t 36]i 

A[BASE*33 »« (ACBASE+13 »• 

TIsLU & VMCPMSG C33Uil73i 

CHANGEFIlE (T*A tBA5E*n#A 

IF A CBASE]. £42163 EOt •• » 

/BEGIN 

/ PARAm«*LIBM5QCTRI«2; 

CHaNGEFILE (T*A tBAS£*33*A CBASE+53>A CBASE+43»A CBASE+6J); 
^END 

ELSE 

PARAMl»LIBMSGCTRl»li ^ 

VOID A CAR\i ^iJh^a/Uu>«-'- tsmP/^ 

WANT l« WAITFQR I* VMCPMSG; 

LIBMtNCE Is TRUEi 

DOING »• 4; 
END CASE 3; 
BEGIN X CASE 

IF A [BASE+63 

IF A CBASE+53 

MATCH<FIuENAME#AtBASE+13) 
BEGIN 

FILENAME la ACBASE*23i 
MATCH(ACBASE4-n«S0URC£FIl.E) 
BEGIN SOURCEFIlE !• AI;BASE + 23' 
VOID A CARD 

MAKEFILE (LLiUt 33l4ll 73 * 1#MaKeFN ClS'^Ul )#USeHqOoE# FIL 

if goooobj then objectfilc » ■ atba5e+43; 
end; 
end; 

lAM IS 0; 
END CASE 4J 
BEGIN % CASE 5 - CHANGING SQURCEFIUE TYPE 

IF EVENTSCU NEO 7 THEN GOERRC'ARRGH "#24); 

LLDIsKREAO tm ACBA$E+23 !■ EVeNTSC2 3 ,FF; 

MANT l« VDISKREAO; 

D0INGl«6j 

END CASE 5; 

BEGIN » CASE 6 - FINISH SQURCEFIUE TYPE 

W0RKC43fC36l63 I" ACBASE+U; 

DISKWRITECACBASE+23); 

QQD0a6JlpFAl.SE;; 

ildiskreadi»tp0kadr; % get eof pointer record in "ip" f 
mantisvdiskread; 

OQlNGlalli 
END CASE 6; 
/BEGIN X CASE 7 • CHANGING SAVE FACTOR 
7 IF CvENTStn NEQ 7 THEN GQERRCA[BASE3'2); 

LLDIsKREaD I* AC8ASE+33 »» EVEnTSC 23 ,FF; X SAVE ADDRESS 

[ WANT la vbiskread; 
\ DOING la a; 

^ENO; X CASE 7 
BEGIN X CASE 8 • HEADER NOW IN CORE 
WORKE33tClll03 !■ AtBASE*23; » REPLACE SAVE FACTOR 
DlSKwRITE(A[BASE+33); X REPLACE HEADER 



X0518- 
X0518- 
X0518- 
X0518- 
X0518- 
X0518- 
X05I8- 
XOSIB" 
X0518- 
X05I8- 



X0518- 
X0518- 



X05I8- 
ETYPe^O); '/t^l^ 



/kxa-^-c/ "r am -//'niske*/ '' 



X0518- 



X0403' 

ILEX0518' 

X0518' 

X0518' 



62006600 
62006700 
62006800 
620O6VO0 
62007000 
62007100 
62007200 
62007210 
62007220 
62007230 
62007300 

62007400 
62007410 
62007420 
62007500 
62007600 
62S07700 
62007900 
62008000 
62008100 
62008200 
62008250 
62006300 
62006400 
62006500 
62008600 
62906700 
62006800 
62Q08900 
62009000 
62009100 
62009200 
62009300 
62009400 
62009500 
62009600 
62009700 
62009600 
62009900 

62010000 
62010100 
62010200 
62010300 

68010350 
62010375 
62010400 
62010450 
61010500 
62010600 
62010700 
62010800 
62610900 
62011000 
62011100 
62011200 
62611300 

62011400 



T 
T 
T 
T 
T 
P 
P 
C 
C 
C 
P 
P 
C 
C 

p 

T 
T 
T 
T 
T 
P 
C 
T 
T 
T 
T 
T 
P 
P 
T 
T 
T 
T 
T 
T 
T 
T 

T 
P 
T 
T 
T 
T 
C 
C 
P 

C 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 



0136 
0U8 
0138 
0145 
0150 
0154 
0155 
0161 

0162 
0163 

0165 

0170 
0170 
0170 
0172 

0172 
0174 
0176 
0177 
0177 
0177 
0185 
0186 
0186 
0190 
0192 
0192 
0197 
0197 
0201 
0205 
0209 
0205 
0205 
0206 
0206 
0214 
0217 
0216 
0219 
0219 
0219 
0223 
0227 
0229 
0232 
0232 
0233 
0234 
0234 
0240 
0244 
0244 
0245 
0246 
0246 

0249 



/, 



IF A [BASE+13 GTR OR A CBASE] , C 42 1 6] NE« " •* THEN X0518- 

/•8EGIN lAM !• Oi GO TO EXITJ 

FIND (LLilAM C 33» 41 1 7 3*0* A CBASE3 t C6 I 36]# A t BASE + 5 J #USERCODE ) i XQ518- 

waitfob !■ iam; 

DOING »• 91 

ENOJ X CASE 6 
BEGIN X CASE 9 

IF EVENTStn NEQ 7 THEN X NO OBJECT VERSION 
BEGIN UITOUT ("ERHI "^NOCRUF); X0&18" 

LITOUT CO & •♦*•♦ C6I42«63 & A CBASE3 C 12I6I36]*CRLF J^ X0518- 
IAMl«Oi SO TO exit; X0518- 

END; X0518- 

LLDISKREAD i» AtBASE*!] i* EVENTSC23 ,FF; X SAVE ADDRESS 
WANT l« VDISKREAOJ 
DOING t« lO; 
ENOJ X CASE 9J 
|P/BEGIN X CASE 10 • HEADER NOW IN CORE 
,K^/ WORKC33f£2»103 «* AC8ASE + 23i » REPLACE SAVE FACTOR 



^0^*^ I Dl5KWRITECACBASE+33)i X REPLACE HEADER 
IAM t» 0} 
NO; X CASE 10 
BEGIN X ClSE U - "IP" EOF POINTER IN CORE 
IF WORK C03*TEN8 THEN X E^F POINTER 
BEGIN 

WORK t203|BFlLETYPE; X NEW FILE TYPE 
DISKWRITE CTPOKAOR); X REPLACE EOF POINTER 

iamj»o; 

END 
ELSE 

BEGIN X RATS • FILE TYPE IN NEXT SEGMENT 

If WORK C103»TEN8 THEN 

A CBASE3»aO 
ELSE 

If work czoS'Tenb then 

A CBASE]I»10 

Else ^..^ ^"----^ cant find eof marker • giving up 
BEGIN iAMi«o; go Exrr-i;NDj 

DOlNGtslSJ 

Lldiskread«»tpdkaor+i; 

WANTlsVDISKREAO; 
TeMPIsU 

End; 

E'NDJ X CASE a 
^vvBEGlN X CASE 12 - FINALLY GOT FILETYPE IN «1P" EOF RECORD 
,^7 ^^^^ C* [8ASE33UFILETYPE; 
DISKWRITE CTPDKAOR+D; 

iamisO; 

end; X CASE 12 
END ALL CASES; 



EXITI 

END CHANGE VERB; 




X0518- 
X0518- 
X0518- 
X0518- 
X0518- 
X05X8" 
X0518- 
X0518- 
X0518- 

xosia- 

X0518- 
X0518- 
X0518- 
X0518- 
XQ518" 
X0518- 
X0518- 
XQS18- 
X0518- 
X0518- 
X0518- 
X0518* 
X0518- 
X0518- 
X0518" 
X0518- 
X0518- 



START 
108 



106 



620U500 

62011600 
62G11700 
620U800 
62012000 
62012100 
62012200 
62012300 
62S12400 
62012500 
62012330 
62012600 
62012650 
62012700 
62012800 
62012900 
68013000 
62013100 
62013200 
62013300 
62013400 
62013300 
62013502 
62013504 
68013506 
62013508 
62013510 
62013512 
62013514 
62013516 
62013518 
62013520 
62013522 
62013524 
62013526 
62013528 
62013530 
62013532 
62013534 
62013536 
62013538 
62013340 
62013542 
62013544 
62013546 
62013548 
62013550 
62013552 
62013554 
62013600 
OF SEGMENT 

IS 14 LONG 
62Q13700 
62013800 

IS 329 LONG 



P 0253 



T 
T 
P 
T 
T 
T 
T 
T 
P 
C 
P 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

T 



0236 
0258 
0258 
0263 
0264 
0264 
0263 
0265 
0266 
0267 
0271 
0273 
0275 
0278 
0279 
0280 
0280 
0280 
0284 
0288 
0288 
0289 
0289 
0290 
0290 
0292 
0297 
0297 
0297 
0297 
0300 
0301 

0302 
0302 

0306 
0307 
0107 
03U 
0312 
0315 
0316 
0316 
0316 
0317 
0317 
0319 
0324 
0325 
0325 



********** 
p NEXT SEQ 
T 0326 
T 0326 
» NEXT SEG 



108 
106 



t 



X*i*****************************4t**********************************ik**X 

PROCEDURE RENAMEIT UCW* A)} BOOLEAN LCW; ARRAY A(0]; 

,************ ********tlr*4******************ir*******************X 

ar ATM 



X*«*****i 



LABEL 



BEGIN 



exit; 

case qoinq of 



BEGIN 
BEGIN 



X CASE 

IF FILENAME • THEN GOERR ("NOFILE "» 1)/ 
SREG IS BASE - ACBASEj; 

IF ACSREG3fFF»0 THEN QOERR (♦'FILENAM'',6)/ 
IF ACINC(5REG)3.C3I33 s THEN GOERRC AtSREG3*e)i 
IF AC5REQ]tC3l33»7 THEN G0ERRCAtSREG]»42); 
IF FjNOAWORDCACSRESlf RESWROTABLEC 1 3» 

NUMOFRESWRDS) NEQ THEN GOERR( AC5REQ3* 2» ); 
FIND CLL&lAHC33t4U73#0«ACSREQ3t(6i«23' 
USERC00E# USERCODEJi 
<» U 
UR i» iam; 
o; 

CASE 1 

ENTSC13 GEQ THEN G0ERR(AtSREG3# 3)i 

(FILENAME#SOUHCEFlLE) 

T l» vcopy; 



DOING 
WAITF 
END CASE 
BEGIN % 
IF EV 
MATCH 
BEGIN 

»^AN 

end; 

FILE 
IAM I 
END CASE 
END ALL 



NAME t« 

cases; 



ACSREG3.C6J423&'' "[42142163; 



EXIT* 



END OF renameit; 



63000000 




0061 


63000100 




0061 


61000200 




0061 


61000300 




0061 


63000400 




0061 


START OF SEGMENT 


********** 109 


63000500 




0000 


63000600 




0000 


63000700 




0000 


63000800 




0000 


63000900 




0008 


63001000 




0009 


6300U00 




0018 


6300U50 




0029 


63001200 




0032 


6S001300 




0033 


63001400 




0040 


63001500 




0040 


63001600 




0045 


63001700 




0046 


63Q018O0 




0046 


68001900 




0047 


63002000 




0047 


61002100 




0053 


63002200 




0053 


69002300 




0US6 


63002400 




0056 


63002500 




0056 


63002600 




0060 


63002700 




0061 


63002800 




0061 


START OF SEGMENT 


********** xio 


110 IS 3 LONC 


t» 


NEXT 5EG 109 


63002900 




0062 


61003000 




0063 


109 IS 64 LONC 


It 


NEXT 5EG 8 



3t*********************************************************************** 

PROCEDURE WHATSIT(LCW»A); BOOLEAN LCW; ARRAY AC03; 

X*********************************************************************** 

BEGIN 

LABEL CaSE1#EXIT; 



REAL TM,TP#0ATE; 

BOOLEAN OBJ, slash; jnteqer i,pc; real word; 

X 



START 



X0517" 



STREAM PROCEDURE MSGCL*FlLNAM,WRKTOG#TYPE,NREKS#DATE#TM#SAVEF); 
X,.,,,,.,, ,,,, ,,.,.,#,.,,,,,,..,, ,. 

VALUE FILNAM#WRKT0G,TYP£*NREKS*DATE#TM#5AVEF; 
BEGIN LOCAL SVJ LABEL EXIT; 
OIl«L^ OSt'BLlT" "; SIH»L; 0S»»9hDS; 

oii»L' DS»«5LiT"FiLE "; siiiLOc filnam; sii«si*i; 

7{IF SC«" •♦ THEN JUMP OUT ELSE OSIpCHR); 
WRKToGCDSJwllLlT" (WORKFILE)"); 



64000000 
64000100 
64000200 
64000300 
64000400 
OF SEGMENT 
64000500 
64600550 
64000600 
64000700 
64000800 
64000900 
64001000 
64001100 
64001200 
64001300 
64001400 



T 0061 

T 0061 

T 0061 

T 0061 

T 0061 

********** m 

T 0000 

C 0000 

T 0000 

T 0000 

T 0000 

T 0000 

T 0000 

T 0000 

T 0002 

T 0003 

T 0006 



w 



oSM/uiT"* TYPE "^ sin»Loc type; SlIsSI + j; 

rCIF SC»« " THEN JUMP OUT ELSE DSIsCHR)! 

sii«loc NREKSi os»»80Ec; Di««»sv; DSi«7riii; sii»sv> on«sv; 

8CIF SC»" " THEN 5>n«SI*i ELSE OSI»CHR)J 

DSIBSI-IT" RECORDS"; 

WRKTOGCJUMP OUT TO EXIT); 

OS!»lOUlT"# CREATED "; SlIsUOC DATEJ DSt*eCHR; 

sii'loc tn; osi»2Lit" c; svi^di; ost«40Ec; 

Oli"SV; 0Sla3FILL; SIlvSV; OIIbSVJ 

4(IF SC*** •* THEN 5II»SI + 1 ELSE DSI-CHR); DSlsZLIT") "; 

DSI»3LIT*'SF«''; svi»oi; 

sU'loc savef; ds»»40ec; oiii»sv; os»»3FILl; siiksv; oji«5v; 

4CIF SC*" " THEN SItsSI + l ELSE DSMCHRJJ 
EXITI DSt*8LlT" •♦; 

END STREAM PROCEOURE MSGi 



64001500 




0009 


64001600 




0010 


64001700 




0013 


64001800 




0013 


64901900 




0015 


64902000 




0017 


64092100 




0018 


64002200 




0020 


64002300 




0022 


64002400 




0023 


64002500 




0024 


64002600 




0026 


64002700 




0027 


64002800 




0029 


64002900 




0030 


64003000 




0032 



OF 



ACBASE3; 



X NO PARAMS* WANTS WRKFIL 

FlLe"#U; % NO WORKFlLE 
REQUIRED 



x... ...... 

case doing 

BEGIN 

BEGIN % CASE 
SrEG la BASE - 

Temp i» 2; 

If AtBASE] l» ACSREG],FF » THEN 
BEGIN 

IF FILENAME M THEN GOERR("NO 
IF TPCOUNT QTR THEN X UPDATE 

BEGIN 

«ANT !" VUPQATEi 

LITQUTC'WAIT. "flH 

DOING »» li 

GO TO exit; 

END % IF WORKFILE NEEDS UPDATE 
ELSE ACBASE+IJ »» SOURCEFIlE; 
A CBASE*2J1<'USERC00E; 
END X IF WORKFILE REQUESTED 
ELSE 
BEGIN 

SLASHt«0BJI«aOOLEAN CA [6ASE+2]UA CBASE^l ] > si t «0 }; 
pCtwA CBASE}; 
WHILE I LSS PC DO 
BEGIN 
INC (I); 

WORDi'iA CINC CSREG)]; 
IF HORD.C3I33 QTR THEN 
BEGIN 

W0RDI*M0R0iC6f42]; 
MATCH (WORO^^OBJECT " ) 

OBJJwTRUE 
ELSE 
IF A C8A5E+13 EOL THEN 

A tBASE*Ul«WORD 
ELSE 
IF A CBASE+23 EQL THEN 



X LETTER STRING 



X0517» 

X0517- 
XOSU- 
X0517- 
X0517- 
X0517- 
X0517- 
X0517- 
X0517- 
X0517- 
X0517- 
X0517- 
X0517- 
X0517- 
X0517- 
X0517- 
X0517- 
X0517- 
X0517- 



64003100 
64004400 
64904500 
64904600 
64004700 
64004800 
64004900 
64005000 
64005100 
64005200 
64005300 
64005400 
64905500 
64005600 
64Q0S700 
64005800 
64005900 
64005950 
64906000 
64006010 
64006020 
64006030 
64006040 
64006050 
64006060 
64006070 
64006080 
64006090 
64006100 
64006110 
64006120 
64006130 
64006140 
64006150 
64006160 
64006170 
64006180 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
C 
T 
C 
C 
C 
C 

c 
c 
c 
c 
c 
P 
c 
c 
c 
c 
c 
c 
c 
c 



0032 
0032 
0033 
0033 
0033 
0035 
0036 
0038 
003 9 
0047 
0048 
0049 
0049 
0050 
0051 
0053 
0053 
0055 
0057 
0097 
0057 
0058 
0062 
0063 
0065 
0065 
0066 
0068 
0069 
0070 
0072 
0073 
0074 
0074 
0078 
0080 
0080 



/♦ 



IF SLASH THEN 
BEGIN 

A cbase;<^2}i*i^oro; 
suashi«fause; 

END 

cl.se 

QOERR (W0RQ#8} 
ELSE 
60ERR (WQROfS} 
END 
ELSE 
IF WQR0,C1I23 EQL I THEN X SPECIAL CHARACTER 
IF WORD E«l "/" THEN 
IF SLASH THEN 

GQERR CW0RD#8) 
ELSE 
lEGlN 

8lash»«true; 
if i ♦ 2 leo pc then 
fixuser {i*a*exit»true); 

END 
ELSE 
GOERR (WQRDf8} 
ELSE 
BEGIN 

WOROtaDECCQNV (WORD^J 
QOERR (W0HDf8}J 

end; 
end; 
IF Slash then goerr ('♦incmpi,t''»8); 

IF OBJ THEN 
IF A CBASE^n EQL THEN 
IF GOODOBJ THEN 
BEGIN 

A [BASE+U««?SQURCEFILEiC6l36]; 
A CBASE]>«0; 
END 
ELSE 
GOERR ("NO FILE"*!) 
ELSE 
A CBAS£ + l]|»A CBA5E + n,t6l363i 
IF A CBASE+23 EQL THEN 
A CBA$E4-2]i"USERC00Ej 

end; 

go to caseu 
End; % case o 



CASEll 



BEGIN % CASE 1 
AtBASE*l3 »• SOURCEFILE; 
A tBASE*2]l»U5ERC00EJ 

riNO CLL&IAM t33l4lt73#0#A 
WAlTfOR l» I AM J 
DOING M 2; 

End; % case i 



»0517" 
X0517- 
X0517- 
*0517- 
»0517- 
X0517* 
X0517- 
X0517- 
X0517- 
X0517- 
XQ517- 
X0517- 
X0517- 
X0517- 
X0517- 
X0517- 

X0517* 
X0517- 
X0517- 
XOSl?" 
»0517- 
X0517- 
X0517* 
X0517- 
*0517- 
X0517- 
X0517- 
X0517'' 
X0517" 
X0517- 
XOSl?" 
*0517- 
X0517- 
X0517- 
X0517- 
X05I7" 
X0517- 
XP517* 
X0517- 
»0517- 
X0517- 
X0517- 
X0517- 
X0517- 
X0517- 
»0517- 



[Ba8E*13#A CBASE+23*Ui»£RcOOE)j 



X0517- 
X0517- 



BeGIN % CASE 2 



64006190 

64006200 

640Q62J0 

64006220 

64006230 

64006240 

640Q62S0 

64006260 

64006270 

64006280 

64006290 

64006300 

64006310 

64006320 

64006330 

64006340 

64006350 

64006360 

64006370 

64006380 

64006390 

64006400 

64006410 

64006420 

64006430 

64Q06440 

64006430 

64006460 

64S06470 

64006480 

64006490 

64006500 

64006510 

64006520 

64006530 

64006540 

64006550 

64006560 

64006570 

64006580 

64006590 

64006600 

64006610 

64Q06620 

64006630 

64906640 

64006700 

64006800 

64006900 

64006950 

64007000 

64007100 

64Q07200 

64007300 

64007400 

64007500 

64007600 



C 
P 
C 
C 
C 
C 
C 
C 
C 
C 

c 
P 
c 
c 
c 
c 
c 
c 
c 
c 
c 
p 
c 
c 
c 
c 

c 
c 
c 
c 
c 
p 
c 
c 
c 
c 
c 
c 
c 
c 
c 
p 
c 
c 
c 
c 

T 
T 
T 

c 

T 
P 
T 
T 
T 
T 
T 



0082 
0083 
0084 

ooes 

0086 
0086 
0086 
0091 
0091 
0096 
0096 
0096 
0098 
0099 
0100 
0105 
0105 
0105 
0106 
0107 

oiu 

0111 
Olll 
0116 
0116 
0116 
0118 
0123 
0123 
0123 
0130 
0130 
0132 
0133 
0134 
0136 
0137 
0137 
0137 
0144 
0144 
0147 
0149 
0151 
0151 
0152 
0152 
0152 
0152 
0154 
0156 
0157 
0162 
0162 
0163 
0164 
0164 



IF A CBASE^U 

If events tl] 

BEGIN 

GOERR CA tBASE+n,2); 

lloiskbeao «• 

WANT l» VOISK 
DOING >" 3; 
end; X CASE 2 



tC6l6J EQL THEN A CBASE+U , C6 16 J I*"*"; 

LEO THEN 



eventst23,ff^ % header address 
read; 



X0517- 
»0517- 
X0517* 
X0517" 
X0517- 



S^diN % caI^ 
Date i» datec 
If tpi"»workc4 

TMlnWOAKtUfC 
TmI'TM DIV 21 

If acbasej * 

MSG CU*IF a C 
FILENAME 
WORK 171 
EtSE X WANTS 
MsG(l#ACBASE+ 
OaTE#TM*W0RK[ 
TwXOUT(LL*LCO 
lAM t* 0; 

End case 3; 

END ALL cases; 



I, HEADER n6w IN COr£ 
ONV(WORKC33,C30U8]>; 
3tC36l63 QTR NUMQFTYPES THEN TP»»0; 
251233; X CREATION TIME 
6000X100+TM DIV 3600 MOD 60 DIV i; 
THEN X WANTS WORKFlLE SPECS 
BASE+U»C6I63 EQL "*" THEN & "♦" t6U2l63 

Ci2l6l363 ELSE FILENAME#TRUE»TYPET ABLE t^I 
+l#OATE*TM,WORK [33. [21103) 
NAMED FILE SPtCS 

U#FALSE*TYPETABLECTP3#WORKC7 3+l* 
33.C2U03); 
3*80*1); 



& X0517- 
LETYPE3* 
X0517" 



64007650 
64007700 
64007710 
64007730 
64007740 
64007600 
64*07900 
64008000 
64008100 
64008200 
64006300 
64008400 
64008500 
64006600 
64008700 
64008800 
64008900 
64008950 
64009000 
64009100 
64009200 
64009300 
64009400 
64009500 
64009600 
64009700 
SEGMENT 



EXXTI 

END PROCEDURE 



whatsit; 



START OF 

112 IS 5 LONG* 
64009800 T 
64009900 T 

111 IS 221 LONG, 



0164 
0169 
0170 
0171 

0176 
0176 
0178 
0179 
0180 
0180 
0180 
0180 
0182 

0185 
0187 
0191 
0192 
0197 
0200 
0203 
0203 
0209 
0811 
0213 
0214 
0214 
********* 

NEXT SEG 

0215 

0215 
NEXT SEG 



112 
111 



X******************************************************* 
PROCEDURE GUARDIT(LCW*A); BOOLEAN LCW; ARRAY AC03; 
X******************************************************* 

BEGIN 
LABEL t; 



IF tpcount neq Q then 

BEGIN 

litoutchait, 

WANT I* 
END ELSE 
BEGIN 

RUNl l» 

RUN2 >« 



********** 113 



"^NOCRLF); 

vupoate; 



"GUARD 
"DISK 



"; 

"; 



lAM i« vdispatch; 



LITOUTCWAIT 

iNo; 

END guaboit; 



.NOCRLF); 



67000000 T 0061 

67000100 T 0061 

67000200 T 0061 

67000300 T 0061 

67000350 T 0061 
START OF SEGMENT 

67000400 T 0000 

67000500 T 0001 

67000600 T 0002 

67000700 T 0003 

67000800 T 0003 

67000900 T 0003 

67001000 T 0007 

67001100 T 0008 

67001200 T 0009 

67001210 T 0010 

67001300 T OOll 

67001400 T OOU 

113 18 16 LONG# NEXT SEG 



• : 



I************************ 



PROCEDURE UOCKlTCLCW^Aj; BOOLEAN LCW/ ARRAY ACQ]; 
X**************************************************************** ******* 
BEGIN 

REAL i*pCf imax^wqrd; 

BOOLEAN lok,unlk#pub»wqrkfile*nami,nam2,src*obj*wth; 

BOOLEAN SLASH#NAM3»NAM4; INTEGER FORGETSET; 
LAtEL RESTRT*SELECT*SECUR*CHECK#tRRl»ERR2»EXlTi 
LABEL CHECKUSER* SELECTiTi 
CASE DOING OF 

BEGIN 

BEGIN % CASE - SYNTAX ANALYSIS 

PC «» ACSREGl«sBASE-AtBASE33f C18I153; X PARAMETER COUNT 

I l» VERBTABL£CAC5REG3,C9l93J,C6«423; % VERB NAME 

MaTCH(I»«UNLOCK ••) UNLK l» TRUE ELSE 

MaTCH(I»"PUBHC "J PUB 

match(FIlename,o) else 



*0516' 
X0516' 



»« TRUE ELSE LOK l« TRUEi 
X GOOD wqrkfile 



X DEFAULT FILE NAME 



NO WORK 
NAME 



BEGIN 

A £BASE*13I«S0URCEFILE; 

WORKFILE l» true; 

end; 

IF PC»0 THEN % NO PARAMETERS 
BEGIN 

IF NOT WORKFILE THEN GOeRRC'NOfILE "'U; % 
NAMU«TRUE; ACBASE3M0; % ASSUME WORK FILE 
GO TO select; % NO FURTHER SYNTAX ANALYSIS 

end; 

aCBASE3i»CII«5REG+U&CIMAX|pSREG+PC)C18I33»153& 
R(PUB)H5U7in&R<L0K)Cl6»47tl3«;R(UNLK)tl7l47U3; 
RESTRTI 

FOR U«I STEP I UNTIL IMAX DO 
BEGIN 

IF A CI3,C3«33 » THEN % NOT A LETTER STRING 
IF A tn « "Z" THEN 

IF SLASH THEN GO ERRl 
ELSE IF WTH THEN IF NAM2 



»0516- 



FILE 



checkuser« 



»0516- 
X0516- 

xosie* 

THEN X0516- 

BEGIN X0516- 

X0516- 
SLASH»«TRUE; X0516- 

IF I ♦ 2 LEQ IMAX THENX0516- 
BE6IN SRE6*«I; X0S16- 
FIXUSER(I*A,EXIT#TRUE) END; 



END 

ELSE GO ERRl 
GO CHECKUSER 

GO ERRl 



ELSE IF NAMl THEN 
ELSE 
ELSE 

60 ERRl 
ELSK 
BEGIN 

WORD }<< ACI3.C6t423; 
MATCHCWORO^^SOURCE ") 
BEGIN 

IF SRC THEN GO TO ERRU 
IF WTH 
OR OBJ THEN BEGIN FORGETSET l«2; GO SELECTIT END; 



X0516- 
X0516- 
X0516- 

*0516- 
X0516- 
X0516- 
X0516' 
X0516- 



*0S16" 
X0516' 
X0516' 



68000000 T 0061 

68000100 T 0061 

68S00200 T 0061 

68000300 T 0061 

68000400 T 0061 
START OF SEGMENT 

68000500 T 0000 

60000590 C 0000 

68000600 T 0000 

68000630 C 0000 

68000700 T 0000 

68000800 T 0000 

68000900 T 0000 

68001000 T 0000 

6800UOO T 0003 

68001110 T 0006 

68001120 T 0009 

68801200 T 0016 

68101300 T 0019 

6800UO0 P 0019 

68001500 T 0021 

68001600 T 0022 

68001700 T 0022 

68001800 T 0023 

68601900 T 0023 

68002000 T 0030 

68802100 T 0032 

68002200 T 0032 

68002300 T 0032 

68002310 T 0035 

68002320 T 0039 

68002400 T 0040 

68Q02500 T 0041 

68002600 P 0041 

68002610 c 0042 

68002620 C 0044 

68002621 C 0044 
68002623 C 0046 
68002625 C 0047 

68002627 C 0047 

68002628 C 0047 

68002629 C 0049 

68002630 C 0090 
68002635 C 0053 
68002640 C 0053 
68002650 C 0053 
68002660 C 0054 
68002670 C 0055 
68002680 C 0055 
68002685 C 0055 
68002690 C 0055 
68002700 T 0055 
68002800 T 0057 
68002900 T 0057 
66003000 p 0059 
68003050 c 0060 
68003100 p 0060 



********** im 



SRCl'TRUEJ 

END 
ELSE MATCHCW0RO»"OBJECT " ) 

BEGIN 

IF Q8J THEN GO TO ERHi; 

IF WTH 

OR SRC THEN BEGIN FORGETSETl»U GO SEUECTIT END; 

OBUt»TRUE; 

END 
ELSE MATCH(WORD»"WITH •♦ ) 

BEGIN 

IF UNLK OR PUB OR WTH THEN 60 ERRU % INVALID PAR 

IF NOTCNAMl OR WORKFILE) THEN G0ERR("N0F ILE "^U; 

NAMl |» WTH l» true; % LOCK THE WORK FILE IF NAME 

END 
ELSE IF WTH THEN X LOOKING FOR GUARD FILE NAME 

0EGIN 

IF SLASH THEN IF NAM« THEN GO SELECTIT 

ELSE BEGIN A CBASE^'T' J t rWORD 
SLASHI*FAL5Ei 
NAM4I»TRUE END 

ELSE 

IF NAM2 THEN GO SELECTIT ELSE BEGIN 

A[BASE^2] is word; % SAVE GUARD FILE NAME 

NAM2 i» true; 

END 

END 
ELSE IF NOT NAMl THEN % NAME OF FILE TO BE LOCKED 

BEGIN 

IF OBJ THEN 

IF WgRD.C42«63 NEO " •» THEN 
GQERR CWORD^AS); 

ACBASE^n )• word; 

NAMl !« true; 

end 

ELSC 

begin 

IF SLASH THEN if NAM3 THEN qO SELECTIT 

else begin a t base+6 j » "word 
slash«»fal5e; 
nam3i*true end 
else begin 
selectit! 

acbase]*c33ush«i; go to select; 
end; 
end; 
end; 
END I loop; 

AtBASE3»»0; » END OF PARAMETER LIST 
5ELECTI 

IF SLASH OR (NOT NAMl) QR (WTH AND NOT NAMg) THEN 

QOERR ("INCMPLT"**); 
IF UNLK THEN AlBASE+33 l«ACBASE+4) |»3"14" ELSE 
IF LOK THEN ACBASE<.33 l»AC8ASE*43 !■ ELSE 

BEGIN 

AtBiSE*33«»3''l4''; AtBASE443 MO; 

end; 



X0516- 


68003150 


C 


0065 




68003200 




0065 




68003300 




0065 




68003400 




0065 


»0516- 


68003300 




0068 


»0516- 


680035S0 




0069 


»0516- 


60003600 




0069 


X0516" 


68003650 




0073 




68003700 




0073 




68003800 




0073 




60003900 




0073 


AMETER 


68004000 




0076 




60004100 




0078 


NOT GIVEN 


68004200 




0087 




60004300 




0088 




68004400 




0088 




68004500 




0089 


X0516«» 


68004510 




0009 


; *0516« 


68004520 




0090 


X0516- 


68004525 




0093 


X0516- 


60004530 




0093 


X0516- 


68004540 




0094 


X0516- 


68004600 




0094 




68004700 




0096 




68004800 




0097 


X0516- 


68004850 




0098 




68004900 




0098 




68005000 




0098 




68005100 




0099 


X0516- 


68005U0 




0100 


X0516- 


68005120 




0100 


X0516- 


68005130 




0102 




60005200 




0107 




68005300 




0108 




68005400 




0109 




60005500 




0109 




60005510 




0109 


X0516- 


600055U 




OHO 


; X0516- 


68005513 




0111 


*0516- 


60005514 




0113 


»0516- 


68005515 




0114 


X0516- 


68005517 




Oils 


X0516- 


60005518 




0115 




68005520 




0116 




60005530 




0118 


X0516- 


68005535 




0118 


X0516- 


68005540 




one 




68005600 




0118 




60005610 




0120 




68005700 




0122 


»05l6» 


60005800 




0122 


X05l"6- 


68005850 




0124 




68005900 




0131 




66005910 




0139 




60009920 




0139 




600059J0 




0140 




60005940 




0143 



) 



», 



SECURi 



A CBASE*53«»ReAt CbRC) ( REAt C QBjH 461 47» U & FORGETSET[ 
If not NAM3 THEN A CBASE'<'6n "USERCOOE J 
IF WTH THEN X CHECK FOR GUARQ FILE 

BEGIN 

A CiASE*33l» • A CBASE+23; 

A CBASE*43I«IF NAM4 THEN A CBASE+73 EU5E USERCOOEi 

FIND (lU&lAM C33I7],0,A C8aSE*23#A C8ASE+4 J^USERCOOE ) J 

TEMPI»7i 

DOING !• U 

waiTfor »« iam; 

GO TO EXITi 
END^ % IF "WTH" 



4414612]; 
X0516" 



X0516- 
X0516* 

XOSld- 
X0516- 



IF 
IF 
IF 



NOT OBJ THEN SECURE ( ACBA3E^U# ACBA5&^6]*ACBASE^3]#ACB 
A CBASE + Uf C42163 EQU •• " THEN 

CA tBASE*n»t6l36],A CBASE + 63fA CB 
A CBASE+4]); X OBJECT 



NOT SRC THEN SECURE 



Tempi**; 

PARAM|*IF SRC OR QBJ OR A [BASE* 1 ] t C42 1 6] NEQ 
A CBASE + 53.C42»21I««PARAM; 
IIBMSQCTR I* PARAM; 
LIBMTNCE l« true; 
DOING IB 2; 

Want i» waitfqr »» vmcpmsg; 
GO TO exit; 
End case o; 



" THEN i 



ASE*43); 

X0516- 
ASE+33* 

J0516- 

%0516- 
EISE 2; 

»0516- 



OF 



DIRECTORY SEARCH 
% NO GUARD FILE 



B^GiN % CASE i • Results 

if events C13 LSS THEN 
BEGIN 

W0R?>»*A [BASE + 231 
MSgPTR Iff 36J 
GO ERR2i 

end; 

If EVEl!ITSC23t!,36l63 NEQ 9 THEN % NOT "LOCK" FILE 
BEGIN 

WOROI«A [BASE*23; 
MSGPTR Is 63; 
GO tRR2l 

end; 

OBJ !«.B0QLEAN(AtiA5E*53»[46ll3); 
SrC I» 800LEAN<AC8ASE+53.C47tl3j; 

Go TO secur; 
End case u 

'beQIN *X *CASE *2 *- *R*ESULTS 'oF *LI flRARY 'MAINTENANCE 

WORDIaA CBA5E+5], [42123 + 5; 
FOR Il'»6 STEP I UNTIL WORD 00 

IF A ClASE+13 NEQ 7 THEN % SECURITY MAINTENANCE IGNORED 
BEGIN 

LITOUT CERRI "*NOCRLF); 
MSqPTR I» 36; 

IF A [8ASEtI3»t6l63 EQL THEN 
BEGIN 

A tBASE + l3»t6l63l«''*"; 

IF A CaA5E+I3.Cl2l63 LEQ 9 THEN X IE "OlSOlO" 
A [BASE+I3.Cl2l363lwFlLENAME,[6l36 3l 



X0516" 
X0516- 



X0516' 



X0516- 
X0516- 
X0516- 

X0516- 

X0516- 
X0516" 
X0516* 
X0516* 
X0516- 



68IOd9SO 


C 


0143 


60005960 




0146 


68006000 




0150 


68006100 




0150 


68006210 




0151 


68006220 




0153 


68006300 




0158 


68006400 




0163 


68006500 




0163 


68006600 




0164 


68006700 




0165 


68806800 




0165 


68006900 




0165 


68007000 




0166 


68007050 




0173 


68Q07100 




0175 


68007150 




0176 


68Q07200 




0184 


68007300 




0184 


68007350 




0189 


68007400 




0192 


68007500 




0194 


68007600 




0196 


68007700 




0197 


68007800 




0198 


68807900 




0198 


68008000 




0199 


68008100 




0199 


68008200 




0199 


68008300 




0200 


68Q08400 




0200 


68008500 




0202 


68008600 




0203 


68008700 




0204 


68008800 




0204 


68008900 




0205 


68009000 




0206 


68009100 




0207 


68Q09200 




0208 


68009300 




0209 


68009400 




0209 


68009500 




0211 


68009800 




0213 


68009900 




0213 


68010000 




0214 


68010100 




0214 


6901P110 




0214 


68010120 




0216 


68010200 




0218 


61010300 




0219 


68010400 




0220 


68010500 




0221 


68010510 




0222 


68910520 




0224 


68010530 




0224 


68010540 




0227 


68010550 




0229 



CHECKI 



litout c- a cba5e + n«crlf)j 
end; 

If AC8A5EH0 THEN IAMI*0 ELSE 
BEGIN 
ItiiACBASE]fC33US]; IHAX|<iaCBASE3 , C IBl 15] j 

PUB !ffB(A[0ASE}.C15in}; I.QKI «6( ACBA»E3 • C16i 1^ J 

UNLKI«B(ACBASE],Cl7ll])i 

IF B CFORQETSETIsA [BASE*53 , [441 23 ) THEN SRCMFAtSE 

ELSE SRCI'B (A CBASE+S3}J 

IF FORGETSET s 2 THEN OBJIpFALSE 

EUSE 06Jt«B (A CBASE^53fC46in}J 

GO TO RESTRTi 

ENOi 
GO TO EXiTi 
END CASE 2J 
END ALL cases; 



ERRlt 

ERRSW U ACn^ 
MSGPTR IS 8J 
lAM l« vCRRORi 

GO TO Exit; 

ERR2t 

LITOUTCERSl "^NOCRLF); 

LITOUT(WORD,CRLF); 

GO TO check; X CHECK FOR MORE PARAMETERS 

EXIT* 

END PROCEDURE LOCKIt; 



»0516- 68010560 
X0516- 6801Q600 
66010700 
68010710 
68010600 
68010610 
68010620 

6801P830 

68010840 

X0516- 68010842 

X0516- 68010844 

»0516- 68010846 

XOSU" 68010848 

68010890 

68010860 

66010900 

66611000 

66011100 

START OF SEGMENT 

115 IS 4 LONG 

68011200 

68011300 

6B011400 

68011500 

68011600 

68Q11700 

68811800 

68011900 

68912000 

68012100 

68012200 

114 IS 282 LONG 



C 0234 

P 0834 

T 0236 

T 0238 

T 0239 

T 0241 

T 0244 

T 0847 

T 0250 

C 0251 

C 0254 

C 0257 

C 0258 

T 0261 

T 0262 

T 0262 

T 0262 

T 0263 

* NEXT SEG 

T 0264 

T 0264 

T 0265 

T 0266 

T 0267 

T 0267 

T 0268 

T 0269 

T 027 

T 0273 

T 0273 
NEXT SEG 



115 
114 



PROCEDURE T1PEIT(LCW*A); BOOLEAN LCW; ARRAY At03; 



********************************************************** 



X********* 

BEGIN 

REAL T, WORD J 

BOOLEAN SQ; 

LABEL exit; 

IF SCHEOULINE THEN GOERRC'TAPE "#40); 

IF 0EVlcE»C0NRAC OR 0EVlCE*BlDS THEN 60ERR('*TAPE 

CASE DOING OF 

BEGIN 

X. ..,, ,.,, «.•...•...•..•.... 



**** 



'♦*56); 



BEGIN X CASE 

IF FILENAME » THEN GOERRCNO FIlE'^*!); 
ACBASE+23 l« ACBASE+13 l« lOO; X SEQi PARAMETERS 
If T t« ACSREei*8ASE-AtBASE]3.FF nEQ THEN X PARAMETERS GIVEN 
BEGIN 

eO BEGIN 

IF (W0R0l"AtlNC(SRE6n)it3l33 NEQ THEN XCHR, STRING 

MATCH(W0RDit6l423#"SE0 "J SQ I* TRUE 



69600000 T 0061 

69000100 T 0061 

69000200 T 0061 

69000300 T 0061 

69000400 T 0061 
START OF SEGMENT 

69000500 T 0000 

69000600 T 0000 

69000700 T 0000 

69000800 T 0007 

69000900 T 0016 

69901000 T 0016 

69001100 T 0016 

69001200 T 0016 

69001300 T 0016 

69001400 T 0024 

69001500 T 0027 

69001600 T 0030 

69901700 T 0031 

69001800 T 0032 

69001900 T 0035 



********** 11^ 



.t 



•# 



ELSE 
ELSE 
ELSE 
ELSE 
END 
IF NOT 
ENOi 
WqRKCQ] ts 
WqRKCI] «• 
W0RKt2] !■ 
NORKC33 te 
WoRKCrl l» 
WORKC83 tm 



G0ERR(WOR0fe} 
IF WQR0.CII23 » THEN AtBA5E+l3 »« 
IF W0R0.tl«2] 5 3 THEN AtBASE*23 «» 
GOERR(" "&W0RDC6U2I6]*8); 

UNTIL OECR(T) LEQ Oi 
SQ THEN QOERRCWHAT, ",34); 



WORD»t2ll273 
WORD. [301183 



Of 
(LL+SYSTEM3&(REAL(FILETYPE-»8ni;3U7»Ui 

usercooe; 

SOuRCEFlLEi 

IF SQ THEN A[BA5E*13 E|.SE Oi X BASE FOH 

AtSASE*23; X INCREMENT FOR SEQ 



SEQJ 



DISKWRITECESPU; 
RUNl l« "PAPER "; 
RUN2 «« "CANOE "i 

errsw i« usercooe; 
Want i» vdispatch; 

DOING »» li 
ENOJ % CASE 



BEGIN X CASE 
If EVEMTSC13 
BEGIN 

SOURCEFILE 
GOOOOBJ t» 

end; 

IaM I* MSGPTR 
WrITEASTERISK 
VOID 

End; % case i 

END ALL cases; 



' I then X EOJ OK 
l» MAKEFN("IS"»LL); 

false; 



ts 

19 



o; 
true; 



EXITI 

End PROCEDURE 



tapeit; 



69002000 




0036 


6*002100 




0039 


69002200 




0048 


69002300 




0053 


69902400 




0062 


69002500 




0064 


69002600 




0071 


69002700 




0071 


69B02600 




0072 


69002900 




0075 


69003000 




0077 


69003100 




0078 


69003200 




0082 


69003300 




0084 


69003400 




0087 


69003S00 




0089 


69003600 




0090 


69003700 




0091 


69003800 




0092 


69003900 




0092 


69004000 




0093 


69004100 




0093 


69004200 




0093 


69004300 




0094 


69004400 




0094 


69004^00 




0096 


69004600 




0099 


69004700 




0099 


69004800 




0100 


69004900 




0103 


69005000 




0103 


69005100 




0103 


START OF SEGMENT 


********** 117- 


117 IS 3 LONC 




NEXT SEG U6 


69005200 




0104 


69005300 




0104 


116 IS 109 LONC 


i» 


NEXT SEG 6 



x******«*************************************#**** ******** 

PROCEDURE CHARGEIT(LCW#A); BOOLEAN LCw; ARRAY AC03; 

BEGIN 
X VOID 
X VOID 
LABEL exit; 



REAL 



t; 

if scheduline then goerrc "charge '♦*40); 
if ac5regi»base«acbase33.ff neo 1 then 
qoerrcno c00e"#7); 

T »• IF AClNC(SREG)3fC3l33 * THEN 

OECCONV(ACSREG3.C21I27)) EISE ACSREG3 , (61423; 
CHARGE ts TIMECONVCPTIME^FALSEJ; 
L0G0FFCLCW*AC*3); 



71000000 T 0061 

71000100 T 0061 

7li00200 T 0061 

71000300 T 0061 

71000400 T 0061 

71000500 T 0061 

71800600 T 0061 
START OF SEGMENT 

71000700 T 0000 

71000750 T 0000 

71000800 T 0007 

71000900 T 0010 

7l»0i000 T 0016 

71001100 T 0018 

71001150 T 0023 

71901160 T 0026 



«******tk** 118 



EXIT« 



UOGONTIME l» TIMEd); 

CHARGE i« li 

IOTOTI»ETIMEt»PTIMElsINPUTCTRlBO; 

t,OGONCUCW»AC*J); 
WRITEA5TERI5K tm TRUE; 
lAM l» 0; 



END CHARGEITi 



7100U70 T 0027 



7100U80 
7100U90 
71001200 
71901300 
7i00l400 
71901500 
71901600 



0Q29 
0030 
0035 
0Q36 
0039 
0039 
0040 



118 IS 43 10NG# NEXT 5EG 



X***************************************************************** 



PROCEDURE 5CHEDULE(UCW#Aj; 



BOOLEAN UCW; ARRAY ACOJ* 



X******** ******************************************************** 



8EQIN 
UABEL 

BQOtEAN 
REAL 



ERB» exit; 

AFTER* LIB* TOITi 
WORD* TYPE* PC* I* 
CASE DOING OF 
BEGIN I CASES* 
BEGIN X CASE 

IF TPCOUNT NEO THEN X NEED MERGE, 
BEGIN 

LITOUT("WAIT, ♦•*NOCRLF); 
TEMP»«i; WANT«»VUPDAT£; 
END ELSE 
BEGIN 

CLEARCW0RKt0]*29)i 

WQRKC13 »« LU4VMCPMSGC33J4ll73i 
WORKC53IXSQURCEFILE; 

WORKt43l«WORKC63l»US£RCOOE; 
WQRKC73 l» MAKEFN("9S''*Lt)/ 

w0rkc93iwchargej 

pc«»»acsreq»»base-acbase]3,ff; 

while i lss pc do x pick up all parameters, 

BEGIN 

INCCU; WQRDlwACINCCSREG)]; 
TYPE »» IF WORD.C2U3 « THEN X 
ELSE IF WORD,Cl«23 * 3 THEN 1 X 

ELSE IF W0RD,C1»23 * I THEN 2 X 

ELSE 3; X 

CASE TYPE OF 

BEGIN 

BEGIN X PARAM IS N* "N 

IF NOT AFTER THEN QOERR<OECCQNV ( ABS(W0R0 ) )* 8 )i 
IF WORD LSS 800 OR WORD GTR 2400 OR 

0ECC0NV(W0R0)*C36J63 GTR 5 THEN GOERRCTIME 
WORKU] I* WORD* AFTER >» FALSE) 
END N CASE; 

G0ERR<DECCONV<WOR0J'8); X PARAM IS ♦N 
BEGIN X CASE 2* (SPECIAL CHAR) 

IF LIB «■ WORD.CF • •♦/•♦ THEN 

If TOIT THEN GOERR ('♦NO U5ER''#39) ELSE 

IF I ♦ 2 LEQ PC THEN FIXUSER ( I* A* EXIT* TRUE ) 



START 



'N, 



N OR 

SPECIAL CHAR, 
ALPHA WORD, 



•♦#41); 



X050 
X050 
ELSE 



72900000 




0061 


72900100 




0061 


72000200 




0061 


72000300 




0061 


72000400 




0061 


OF SEGMENT 


******* 


72000500 




0000 


72000600 




0000 


72000700 




0000 


72000800 




0000 


72000900 




0000 


72001000 




0000 


72001100 




0002 


72Q01200 




0002 


72001300 




0003 


72001400 




0005 


72001500 




0005 


72001600 




0008 


72001700 




0009 


72001800 




0011 


72001900 




0013 


720Q20Q0 




0015 


72002050 




0017 


72002100 




0019 


72902200 




0022 


72902300 




0023 


72002400 




0023 


72002500 




0026 


72902600 




0028 


72902700 




0031 


72002800 




0033 


72002900 




0034 


72903000 




0035 


71003100 




003S 


72903200 




0035 


72903300 




0042 


72003400 




0044 


72903500 




0054 


72003600 




0056 


72003700 




0056 


72003800 




0062 


72003805 




0062 


72003810 




0064 


72003820 




0071 



119 



•'^ . 



'^ 



/ 



(ALPHA WORD) 

AFTER«»llBl««NOT tTQIT»*TRUE) 
UIBI»T0ITI*N0T (AFTER»*TRUE) 



ELSE *050l' 

GUERR CW0R0»8}J X0301' 

END CASE 2} 

BEGIN X CASE 3, 

WORD >« W0R0«i;6l42J; 
MATCH(WORD#''TO •♦ ) 
ELSE 

MATCHCWQRDf"AFTER " ) 
ELSE 

MATCHCWORP^^CHARGE ") 

iEGIN iNCCn; WORDl«AClNC(SREG}]; 
WORKt93««IF WOROtC3«33 GTR THEN % ALPHA 
W0R0tC6t42] ELSE OECCONV(WORD« [6 I 421} ; END 
ELSE X 

IF TOIT THEN WQRKC3] »» WORD 
ELSE IF LIB THEN WORKC63 «» WORD 
ELSE W0RKC5] la word; 

END CASE a; 

END ALL cases; 

END ALL params; 

IF WORKC53 » THEN GQERRCNO FILE"*!); 
IF W0RKC3J • THEN GOERRCNQ FlLE''»383; 
IF W0RKt33.C42l6] ;f ♦♦ " THEN GOERR( WORK[ 3 3 *42 ); 
FINDCLL&IAMc33»4U7]*0#ACBASE3»»W0RKt53»WQRK[6 3*U5ERC0DE); 
ACBASE+n l» WDRKC3]; DISKWRITECESPU; 
TEMP |» 2; DOING «• i; WAITFOR »* IAM; 
END IF TPCQUNT; 
END DOING o; 
BEGIN X DOING * I* RETURN AFTER FIND ON INPUT FILE* 

IF EVENTStn LS5 THEN 60ERR( AC8ASE3#2); » DOES NOT EXIST. 
IF EVENTSC13 » THEN qOERRC ACBASE3# 24); X SECURED FILE, 
FlNDCLL&lAM[33l41l7],0#ACBA5E+U*USERCODE*USERCO0e); 
DOING «s 2; WAITFOR I" IAM; 
DOING U 



72803900 
72003905 
72004000 
72004100 
72004200 
72004300 
72004400 
72004500 
72004600 
72004620 
72004640 
72004645 
72004630 
72004660 
72004700 
72004800 
72904900 
72005000 
72005100 
START OF SEGMENT 
120 IS 5 LONG* 



END 
BEGIN 



FILE 



END 
END 



EXIT I 



X DOING m Z, RETURN AFTER FIND ON OUTPUT 
IF EVENTSU3 GEO THEN 60ERRC ACBASE+l 3# 3); 
UTOUTCWAIT. "^NUCRLF); 
EOJMSG i* NOT concise; wR ITEASTER ISK »» CONCISE; 

runl l« "scheoul"; run2 ;» "cande "; iam »■ vdi5patch; 
errswi»usercooe; x used by dispatch. 

DOING 2; 
ALL cases doing OF; 



ENQ OF schedule; 



72005200 
72005300 
72005400 
72005450 
72805500 
72Q05600 
72005700 
72805800 
72005900 
72006000 
72006100 
72806200 
72806300 
72006400 
72806500 
72006600 
72006700 
72006750 
72006760 
72806800 
72006850 
72006900 
72007000 
START OF SEGMENT 
121 IS 4 LONG, 



0076 

0076 
0081 
0082 
0082 
0084 
0086 
0088 
0092 
0094 
0094 
OlOl 
0103 
0108 
0108 
OUl 
0113 
0116 

0116 

********** 

NEXT SEG 
0117 
0117 
0125 
0132 
0138 
0143 

0149 
0151 
0151 
0152 
0152 

0158 
0164 
0169 
0170 
0171 
0171 
0177 
0178 
0185 
0188 
0189 

0189 
********** 

NEXT SEG 



120 
119 



119 IS 



72807100 T 
201 LQNG« 



0190 
NEXT SEG 



121 
119 

6 



X*t *******************************************************************! 
PROCEDURE SCHEDSTATUS (LCW*A); BOOLEAN LCW; ARRAY A[03; 

********************************************* ***********************!! 

EATM 



BEGIN 

REAL t; 



73800000 
73000100 
73800200 
71000300 
73000400 



0061 
0061 
0061 
0061 
0061 



LABE 
REAL 



L exit; 

STREAM*PROCEDUHE STMESS(W# N# El* E2 ) J VALUE El#E2l 



BEGIN LOCAL OV; LABEL ERR«SCH#RUN#EXT«OUNi 

Diiswj cii»ci-^ei; GO err; gq err; go sch; go run; go oun; 

0S|«8LlT"AB0RTE0»''i TALLYlaB; QO EXT; 
DUNI DSi^SLIfDONEt"; TALI-Y»«5; GO TO EXT; 

SCHI DS|»10L1T''SCHE0ULED,''; TALLY|»10; 60 TO EXT; 
RUN! DS»98LIT"RUNNING(«/ TALLYl»9; DV!«iOi; 

DIt»LOC E2; DS«»7FILL; DIt»Ov; 5IUL0C Es; 

8(IF SC»- " THEN SlIsSUl ELSE 

BEGIN 05I»CHR; TALLYl«TAULY*U END); 

DStsLiT")"; GO TO ext; 

ERRJ DSlsALIT^ERRI"; SII«N; SI«»S>I + i; DS»«7CHR; TALIT»«U; 

exti stmess IB taluy; 

END STREAM PROCEDURE STMESS; 



START OF SEGMENT 

7300QS00 
73000600 

73000700 
73000800 

73000900 
73001000 
73001010 
73001100 
73001200 
73001300 
73001400 
73iOl500 
73001600 
73iOl700 
73001800 
73001900 
73002000 



********** X22 

T 0000 

T 0000 

T 0000 

T 0000 

T 0000 

T 0000 

T 0002 

T 0003 

T 0005 

T 0008 

T 0009 

T 0010 

T 0012 

T 0012 

T 0013 

T 0015 

T 0016 



case doing of 
Begin 

BEGIN X CASE 

IF <TJ»AtSREGI*8ASE*ACBASE33),FF NEQ I OR 
AClNC(SREGn. 13133 m THEN GQERRCNAME "*«'); 
ACSREG3.C1I5] l« O; 

MATCHCVERBTABUECT.C9I9]J,C6I423*"STATU5 " ) 
SCHEDSTATCACSREGJ) ELSE SCHEOSTOPC AC SREG] ); 
WAITFQR tn Iam; OPING »» U 
END CASE Oj 

BEGIN X CASE 1 

IP EVENTSCi] UE<a 1 THEN 

BEGIN 

MSGPOINTER t» EVENTStU * 36i 

CNO; 

writeasteriski»false; 
tl»stmess(work[oj*atsreg]»eventscl3*decconv(eventsc23)); 

twxout(U*workco]#t*i); 
IAM »• o; 

END CASE i; 
END ALL cases; 



exiti 

END 



OF scheostat; 



73002100 
78002200 
7S0023O0 
73902400 
73002500 
73002600 
73908700 
73002800 
73802900 

73003000 
73003100 

73003200 
73003300 
73Q03400 
73003500 
73003600 

73003700 
73903800 
73003900 
73004000 
73904100 
71004200 
START OF SEGMENT 

123 IS 3 LONG 
73004300 
73004400 

122 IS 66 LONG 



T 0017 

T 0018 

T 0018 

T 0018 

T 0022 

T 0031 

T 0033 

T 0033 

T 0046 

T 0048 

T 0048 

T 0048 

T 0048 

T 0049 

T 0050 

T 0052 

T 0052 

T 0054 

T 0059 

T 0061 

T 0061 

T 0062 

********** 

, NEXT SEG 

T 0062 

T 0063 

, NEXT SEG 



123 
122 



e 



X*********************************************************************** 

PROCEDURE LISTFILECLCW#A); BOOLEAN LCw; AR8AY A[0]; 

X*********************************************************************** 
BEGIN 



74000000 T 0061 

74000100 T 0061 

74000200 T 0061 

74600300 T 0061 



•< > 



•• 



SPECS. c 2in»* 

SPECS, C 5tn*» 
SPECS, C 6(n»# 
SPECS, CUU]»* 

5PEC^.C46in#, 
SPECS, C43IU** 



AIG 
TSP 
OAT 
C66 

IKD 
PUB 



SPECS, C 3U3#* 
SPECS. C 6in»# 

SPECS, C 91131^ 
SPECS, Cl2lU#i 

SPECS. C43»13#* 
SPECS, t48«U#; 



DEFINE 

UNK s SPECS, t Un** BA5 »? 

COB » SpECS,t 4in»* FTR • 

XAL » SPECS, C 7in#* 5E0 ■ 

lOK n SPECS, C10IU## INF p 

DEFINE 

SRC • SPECS, [47113*^ OBJ «» 

UNL « SPECS, C44H3## SOU » 

BOOLEAN FROM* TOO* SPECS* LITERAI,* HAVEulTERAt* HAVEOUTPUT* 

HAVEUSER' 

REAU I* PC* WORD' NAMECOUNT* TYPE; 

LABEL SUNIT* QETOBJECT* ERR* EXIT; 

X ♦..,,,.,,...,,.,,,.,,.,, ••,. ,.,.,..,,, 

STREAM PROCEDURE HEADINGCWORK j; 

X,,,,,,,, ,, ,,,.,.,.,,,.,. .#.#♦.,. 

BEGIN 

0I»»W0RK; 0SI»391.IT«NAME TYPE 
0Sla4lLlT"ACCESStD W/R W/B S'F 
END STREAM PROCEOURE HEADING; 



RECS SEGS 
UOCKD BY 



CREATED 



"* 



74000400 

START OF SEGMENT 

74000500 

74000600 

74000700 
74000B00 
74000900 
7400^000 
7400U00 
74001200 

74001300 
74001400 
74001500 
74002900 
74003000 
74003100 
74003200 
74003300 
74003400 
74003500 



T 0061 
********** J24 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 

0000 

0000 
0000 
0000 
0000 
0005 
0011 



%,, ,,,,,. *,..,,,.,,.,,, ,,.,.•, •.,,...,*.,, 

STREAM PROCEDURE OUTFORMAT 

CWORK*FlLNAM*FIUTYP*RECS*SEGS*COAT*AOAT*WPR*WPB*SAVFAC*SECNAM,AFLG); 
%,,,, ..,.,,.,,,,,,,..,,,,,,..,, ., ,,, 

VALUE FILNAM#FILTYP* RECS* SEGS* COAT* A0AT*WPR*WPB#5AVF AC* SECNAM*AFLG; 
BEGIN LOCAL OV; 
DII»WORK; Slt»LOC filnam; 

2(sii»si*i; osi»7chr; dsmlit" "j; % file name and type 
2Cds»*5dec^ dvi»di; dii'di-s; DS194F1LL; oii«dv); * recs and segs 
DSI-2LIT'' "; osi«8chr; % creation date 

DSJ-aLlT" "; AFLGCDI»»DI-3; 0Sji«3LIT»« * •♦}; 

DSI«8CHR; X ACCESSED DATE 

3CDSi«5DECI DV»«OI; DUiDI-S; DSts4FlLL; DIMDV); 

sn«si + i; DSi«2LJT« "; osj*7chr; dsii»9lit'' "; x security name 
END stream procedure outformat; 



74003600 




0011 


74t03700 




ooii 


74003800 




0011 


74003900 




ooii 


74004000 




0011 


74004100 




0011 


74004200 




0012 


74804300 




0012 


74004400 




0014 


74S04500 




0015 


74104600 




0016 


74804700 




0019 


74004800 




0019 


74804900 




0021 


74005000 




0024 



procedure pRlNTITCFILNAM*FlLTYp);VAUUE F ILNAM* FILTYp* REAL FILNAM*FlLTYp* 
X,,,,, , .,,, ,,,,.,,,. ,,,.,.,,••.,,,«.,,,. 

BEGIN REAL I* SECNAM; LABEL SUMMj 

SECNaM t« IF BOOLEAN(WQRKC53.tl»l3) THEN WORK t53 , t6l423 * LOCKED 
ELSE IF W0RKC53«12 AND W0RKC63 NEQ 12 THEN ••PUBLIC " 
ELSE IF W0RKC53»12 AND W0RK[63sl2 THEN •♦UNLOCKO" 
ELSE •• •*; 

FOR IlBlO STEP 1 UNTIL 29 DO IF W0RKtI3»0 THEN GO TO SUMm; 
SUMMI 

0UTF0RMATCL*FlLNAM,FILTYP*<W0HKC73*l)*C(I'l0)»<W0RKt83), 
DATEcONV(IIORK[33,C30U8 3)*OATECONV(WORKC33,a2ll8 3)* 
WORKt03.tnU3*WORKCO],C15ll5 3*WORKC3 3,t2U03*SECNAM*FAL5E); 



74809100 
74005200 
74005300 
74005400 
START OF SEGMENT 
74005500 
74005600 
74005610 
74005620 
74005700 

74005710 
74005800 
74805900 
74006000 



T 0024 
T 0024 
T 0024 
T 0024 

********** 



T 

T 
T 
T 
T 
T 
T 
T 
T 



0000 
OOOl 
0006 

0010 
0011 

0019 
0020 
0024 
0027 



125 



TWXOuT(Ll*Lt03^72#l); 
END PROCEDURE PRINTITi 



125 



74t06l00 T 

74006200 T 
IS 35 UONG* 



0030 
0032 
NEXT 5EG 



124 



REAU STREAM PROCEDURE CHKCFIELO)^ VAIUE FIEtDi 
X,..., , 



BEGIN X COUNT NUMBER OF BITS ON IN FlEtD 

si«»uoc field; su»si+5; 

18(IF SB THEN TAULYlaFTAUUY + li SKIP SB)i 

CHKlBTAlL^i 

END STREAM PROCEDURE CHk; 



74006300 




0024 


74006400 




0024 


74006500 




0024 


74806600 




0024 


74006700 




0025 


74006800 




0025 


74006900 




0027 


74907000 




0027 



ALPHA PROCEDURE GETTYPE (FlLETYPE); VALUE FJlETYPE; INTEGER 
BEGIN 

IF FlLETYPE QTR NUMOFTYPES THEN FILETYPE»»0; 
GETTYPElalF BOOLEAN (WORK t43,ClOIU) THEN "OBJC ) " & 
TYPETABLE tFlLETYPE] C30I6I6] ELSE TYPETABLE 
END OF GETTYPE; 



FlLETYPE; 

X0506- 
X0506" 
X0506» 
CFILETYPEJ; 

X0506- 



74007010 


C 


0028 


74007020 


C 


0028 


74007030 
74Q07040 
74007050 
74007060 
74007070 


C 
C 

c 
c 
c 


0026 
0028 
0031 
0032 
0035 



BOOLEAN STREAM PROCEDURE MASK(BIT); VALUE BIT; 
BEGIN 

Di«»LOc mask; bit(skip db); dsi«set; 
END mask; 



74007100 

74007110 
74007120 
74007130 
74007140 



0038 

0038 
0038 
0039 
0041 



CASE doing op 

begin 

begin % case 

LABEL dummy; 



• SYNTAX ANALYSIS 



PC t» cqmmoncell; % transferred from procedure 

CLEARCW0RK«29}; % ZERO OUT WORK ARRAY 
W0RKC2]laW0RKC4JI«USERC00E; W0RKC6 Jl •"TELETYP"! 
NAMICOUNT U 20; * POINTER FOR FILE NAMES 
WHILE I LS3 PC DO 
BEGIN 

I »• I * i; 

IF (WORDlfAtSRESJ»5REQ+l3)iCUa]«l THEN 

IF IIORO«"/" THEN WORO»»"FROM " & 4C3I45«33; 

If WOReit3l33»0 THEN GO ERR ELSE wORD. 11153 »«80; 

MATCHCWORO*''LlTERAL") 

IF HAVELITERAL THEN 60 ERR ELSE LITERAL ""TRUE 



"LlSTIT" 
X DEFAULT OPTIONS 



74007150 T 0042 

74007200 T 0042 

74007300 T 0042 

74007400 T 0042 

74007410 T 0042 
START OF SEGMENT 

74007500 T 0000 

74007600 T OOOl 

74007700 T 0002 

74007800 T 0006 

74007900 T 0006 

74008000 T 0008 

74006100 T 0008 

74008200 T 0009 

74008300 T 0012 

74008400 T 0016 

74008500 T 0024 

74008600 T 0024 



********** 126 



•* ' 



# * 1 



'• 



Wi 



<I#A#EXIT#TRUEJi 



29 THEN G0EHHC"T00MANY"»30); 
FILE NAME 



EUSE MATCH(WURD*''TO " ) 

IF HAVEOUTPUT THEN GO ERR ELSE TOOlsTRUE 
ELSE MATCHCWORDi^FROM ♦♦ ) 

IF HAVEUSER THEN QO ERR ELSE 
BEGIN 

FROMIaTRUE; 

IF I ♦ 2 LEQ PC THEN FIXUSER 
END 
ELSE IF TOO THEN 

IF HAVEOUTPUT THEN GO ERR ELSE 

BEGIN W0RKt6]l«W0R0; TOOl«»NOTCHAVEOUTPUT««TRUE)^ END 
ELSE IF FROM THEN 

IF HAVEUSER THEN GO ERR ELSE 

BEGIN W0RKt«3|»W0RD^ FROMJ»NOTCHAVEUSERl«THU£); END 
ELSE IF LITERAL THEN 

IF HAVELITERAL THEN GO ERR ELSE 

BEGIN HORKCSJlPWUROl LITERALI'NOT CHAVELITERAL IbTRUE ); 

Else match(woro#''printer'') 

if haveoutput then go err else 

BEGIN W0RKC63l«W0RDi HAVEOUTPUT IsTRUEi END 
Else if TYPEI«FlNOAWORO(WORO&7tlia3»53#RESWRDTABLet03*l8) ;< 

SPECS»«SPECS OR MASK(TYPE*29xREALCTYPE GTR 12)) 
ELSE X ASSUME IT IS A FILE NAME 
BEGIN 

IF CNAMECOUNT««NAMECOUNT*U GTR 
WQRKCNAMEC0UNT3 In WQROJ X SAVE 
ENOi 

End while statement; 
if from then gqerrcfrom "#8)1 

IF TOO THEN GOERRCTO »»&)> 

IF LITERAL THEN GOERRCLITERAL^fS); 

IF 8HK(SPECS,tlU«3) GtR I THEN Q0ERR("FlLTYPE''#3n> 

IF ChK(SPECS,C«2««3) GTR I ThEN qOERRCSECURTY"* 8)* 

IF CHKCSPICS,U6»23) GTR 1 THEN GOERRC "SRC-OB J'^fB )l 

TEMP tff 71 

IF CnAMEC0UNTI»NAMEC0UnT-21) * THEN % ONE FILENAME SPECIFIED 

IF (PREVRCW-BASE) GTR HI THEN X ENOUGH ROOM IN STACK 

BEGIN % LET CANOE DO THE I/O 

A[BASE3 l» 7i X LOOP COUNTER 

AtBASE*n l» W0RKC2U# % SAVE FILE NaME IN STACK 

AtBASE+7] ?« WORKC43; X SAVE USERNAME 

FlND(LL&lAM[33l4ll73#O#WORKt2l)#W0RKE43*U5ERC0Ot)* X 5RC 

FlND<Li.4IAMC33l«l»7 3,0,W0RKC2nfC6l36]#W0RKC4 3,USERC00E); X 

DOING ff 2; 

WaITFOR I» IAMI 

GO TO exit; 
. eno^ 

WORKt33 l« REAL(SPECS); 

woRKt73 i» namecount; 

OlSKwRITECESPUi 

if haveoutput then x output media specified 
match(workc63#''printer«) else 
mat6hcworkc63'"telet.yp"3 else 

BEGIN X DISK FILE NAME 

FlNO(Lt4lAMC33Un73»0#WORKC63*USERCODE#USERCODE); 
AtBASE*n 19 WORKC63; X SAVE OUTPUT FILE NAME 
DOING I" 1; 



X0501- 
XQ501- 
X0501" 
X0501- 
X0501" 



END 



THEN 



OBJ 



74*08700 

74008800 
74908900 
74009000 
74009005 
74009010 
74009020 
74009095 
74009100 
74009200 
74009300 

74009400 
74009S00 
74009600 
74009700 
74809800 
74909900 
74910000 
74010100 
74010200 
74010300 
74010400 
740U900 
74012000 
74012100 
74012200 
74012300 
74012400 
74012500 
74012600 
74012700 
74912800 
74012900 
74013000 

740UIO0 
74013200 
74013300 
74013400 
74013S00 
74013600 
74613700 
74013800 
74013900 

74014000 
74014100 
74914200 
74014300 
74014400 

74014S00 
74014600 
74014700 
74914800 
74014900 
7401SOOO 
74015100 
74015200 
74015300 



0032 
0032 
0040 
0040 
0046 
0048 
0048 
0053 
0053 
0054 
0057 

0061 
0061 
0065 
0068 
0069 
0072 
0076 
0076 
0081 
0085 
0088 
0091 
0093 
0093 
0102 
0103 
0103 
0105 
0112 
0U9 
0126 

0135 
0144 

0153 
0153 
0155 
0157 
0157 
0159 
0161 
0163 
0167 
0171 
0172 
0173 
0175 
0175 
0176 
0177 
0181 
0181 
0184 
0194 
0196 
0200 
0202 



WAiTFOR I" iam; 

00 TO EXlTi 

End; 

GO RUNIT; X TO PRINTER OR TELETYPE 
ENOi X CASE 



126 IS 



BEGIN % CASE 1 -^ SEARCH FOR OUTPUT FILE ON DISK 
IF EvENTSCU GEQ THEN GOERRC A[BASE + n#3 )i % ALREADY PRESENT 
RUNITI 

RUNl «■ "LFILES "i RUN2 l« "CANOE "; ERRSW Is USERCODEi 
IAM |»» VDISPATCH; 

EOJMSG i« NOT concise; 
writeasterisk i« concise; 
GO to exit; 

end; X CASE I 



begin X CASE 
I t« ACBASE] 

ACBASE^n >« 
IF 



2 - SEARCH 
tp ACBASE] 
EvENTStn; 



FOR FILE NAME 
- Zi 
ACBASfc + J + U 



!» EVtNTSt2],UeU&3; 
RESULT 



% HOR ADRS, 



X USERNAME 



I GTR 3 THEN X WAIT FOR OBJECT FILE 

Begin 

WAiTFoi t* iam; 
GO to exit; 
end; 

IF A[BaSe+33 LEO aNO ACBASE+^J LEG THEN GOERRC AtBASE + n*2 ); 

TIME0FDAY(W0RK[2 3*TIMEC0NV(TIMECU»TRUE)); 

W0RKC03 l« date; WORKCn »» AtBASE + 73; BLANK(WORKtn); 

TWX0uTCLL*W0RKC0 3#26#l); 

HEAD ING( WORK); TWXOUT (LL# WORK C03#72* 1 J; 

WRITEASTERISK l« true; 

IF ACBASE+53 LE« THEN GO QETOBJECT; X SOURCE VERSION NOT ON DISK 

lloiskread I« ACBASE«6]; 

WANT i» voiskread; 

OOING Is 3; 

GO exit; 

end; X CASE 2 

X .............. • ••..••.•• 

begin X CASE 3 - SOURCE FILE HEADER IN CORE 

PRINTIT (A tBASE + U*GETTYPE CWQRK [4 ] , 1 36 1 6 3 ) ); X0506- 

IF ACBASe*33 LEO THEN 

Begin 

iam »• 0; GO TO exit; 
End; 
getobjecti 

LLDIsKREaB t* AC8ASE+«3; 

WANT »» vdiskreao; 
doing >" 4; 
GO TO exit; 

end; X CASE 3 



BEGIN X CASE 4 - OBJECT HEADER IN CORE 

PRINTIT Ci CBASE + 13'GETTYPE (WORK C43 , C 36163 ) ); 

IAM jp 0; 

GO TO exit; 

END CASE 4; 
END ALL cases; 



X0506' 



74015400 

74015500 
74015600 
74015700 
74015S00 

209 LONG 
74015900 
74S160Q0 
74016100 
74016200 
74016300 
74016400 
74016500 
74016600 
74016700 
74016800 
74016900 
74917000 
74017100 
74017200 
74017300 
74017400 
74Q17500 
74017600 
74017700 
74§17a00 
74017900 
74016000 
74018100 
74018200 

74018300 
74018400 
74018500 
74018600 
74018700 
74018800 
74018900 
74019000 
74019100 
74019300 
74019400 
74019500 
74019600 
74019700 
74019800 
74019900 

7402OQ00 

74020100 

74020200 

74120300 

74020400 

74020500 

74020800 I 

74S20900 

74021000 

74021100 

74021200 



0202 
0203 
0205 
0205 
0208 
NEXT SEG 
0044 
0044 
0044 
0051 
0052 
0055 
0056 
0059 
0062 
0065 
0065 
0065 
0065 
0068 
0073 
0074 
0074 
0075 
0075 
0075 
0084 
0087 
0091 
0093 

0096 
0098 
0100 
0102 

0103 
0103 
0104 
0104 
0104 
0104 
0107 
0109 
0109 
0111 
Olll 
Olll 

0113 
0113 
0114 
0115 
0115 
0115 
0113 

0118 
0119 
0119 
0120 



124 



.t 



• ' ' 



♦ ^ • • 



START OF SEGMENT ********** 127 



ERRI ERrSW I« ACSREG]; MSGPTR !• B> lAM »« VERRQR^ 

EXIT! 

END PROCEDURE LiSTFlLESi 



127 IS 



124 IS 



6 UONGii 
74021300 T 

74021400 T 

74821500 T 

131 LONG# 



NEXT SEG 
0120 

0124 
0124 
NEXT SEQ 



124 



X**************************************************************** 
PROCEDURE UPBATECUCWf Aj; BOOLEAN UCW; ARRAY AC03; 
%**********«*********•******#********«*************************** 
BEGIN 

LABEL exit; X0405 

CASE DOING OF 
BEGIN 

- IF FILENAMEkO then GOERR ("no FILE^^U ELSE X CASE X0405 
-^ ^'^IF TPC0UNT«0 then IAM|»0 ELSE % CASE 0» 
BEGIN X CASE 

W0RKC03 |5 D0GHQUSECLL3 »s o; 

WOBKtn »* (LL+SYSTEMHR(FILETYPEs8)C3l47ll3 

&RCM0NIT0RBIT)C9I47U3> 

WORKt23l«USERCaOE; H0RKC43l»USERLOCi 

WQRKt3] I" SOURCEFILEI 

M0iE(i6#WQRDS*CTRANDBA5EC0]*W0RKC53); 

ERRSW !» U5ERC00EJ 

RUNl I" "LIST ••; RUN2 I* "CANOE "; 

WANT i» vcloseworktable; doing i« u 

OlSKWRITE(ESPU; 
end CASI Oj 
EgIN X CASE I 

WANT tm VDiSPATCH; DOJNG »« 2f ERRSW I* USEHCODEi 
UPOATEBIT »• U % MARK UPDATE IN PROGRESS 
END CASE i; 
BEGIN X CASE 2 
IF EVENTSCn • I THEN X EOJ OK 
BEGIN 

SOURCEFILE tm MAKEFNC"lS"f LD; 
CANgELCKPT(AC*3JI 
ENDJ 
IAMI«0; IF BREAKORWRU AND NOT DOGLiCENSE THEN L INECLEAR (LCW# A t* 3 )/ 
END CASE 2} 
END ALL cases; 




EXITS 

END cleanworkfile; 



X0405' 



75000000 
73000100 
75000200 
79000300 
78000350 
START OF SEGMENT 
75000400 
75000500 
75000550 
75000600 
75000700 
75000800 
79000900 
75000910 
75001000 
75001100 
75801200 
75001300 
75901400 
7S0O15OO 
75001600 
75001700 
75001800 
75901900 
75001910 
75002000 
75902100 
7S002200 
75002210 
75002220 
75902300 
7S002310 
7S002320 
75902400 
75002500 
START OF SEGMENT 

129 IS 4 LONG 
75002550 
7S002600 

128 IS 94 LONG 



0061 
0061 

0061 
0061 
0061 



********** i2g 

T 0000 

T 0000 

C 0000 

T 0008 

T 0011 

T 0011 

T 0014 

T 0017 

T 0019 

T 0022 

T 0023 

T 0025 

T 0026 

T 0029 

T 0030 

T 0034 

T 0034 

T 0034 

T 0037 

T 0039 

T 0040 

T 0040 

T 0041 

T 0041 

T 0043 

T 0045 

T 0045 

T 0050 

T 0030 
********** J29 

NEXT SEG 128 

C 0051 

T 0051 

, NEXT SEG « 



X*********************************** ************************************ 
REIL PROCEDURE SPECSCAN 

(IADR#0adR'SI2#V0CAB*V5IZE#WHJCH*FT06»EA0R5); 



76000000 T 0061 
76000100 T 0061 
76000110 T 0061 



VALUE VSIZE#FT0G*EA0RS; 

REAU IA0R#0A0R»SIZ*VSI2E*WHICH#FT0G*EADRS; 
ARRAY VOCABCOj; 
BEGIN 
LABEU L; 

REAL STREAM PROCEDURE SPCSCAN 

(IADR«0A09#SIZ«V0CAB«VSUE#MHlCH#FTQG#EA0RS}j 
VALUE VSIZE#FTQG#EADRS; 

BEGIN LOCAL T*SV#0V#C0MA; LABEL NExT#LETTER#NUM8R,FIIL'£xIT; 
COHMENT SPECIAL SCANNER FOR «FIN0/REPLACE« INSTRUCTIONS, 
RETURNS A VALUE ( TO SPECSCAN ) OF I 



( SEQUENCE RANGE 
CHARACTER C*") 



)* 



"INSTRUCTION" 
DELIMITED STRING 
SEQUENCE NUMBER' 
SEQUENCE NUMBER FOLLOWED BY "•"' 
END OF RECORD WITH CONTINUATION 
END OF STATEMENT 
FILE NAME 

ERiOR (MISSING STRING DELIMETER OR STRING TOO LONGJ 
ERROR CFIND/REPLACE "INSTRUCTION" TOO LONG) 
ERROR CFIND/REPLACE "INSTRUCTION" NOT RECOGNIZED) 
ERROR (SEQUENCE NUMBER TOO LONG) 
14*MISSING FILE NAME 
POSITION OF "INSTRUCTION" RETURNED TO "WHICH"! 



1 * 

2 • 

3 * 

4 m 

5 s 

6 >« 

7 m 
10* 
U« 
12» 
13» 



c 

1 ■ 

2 • 

3 • 

4 « 

5 « 

6 ■ 

7 •» 

8 « 

9 • 
10«« 
U« 

END OF 



"FIND" 

"REPLACE" 

"FIRST" 

"LITERAL" 

"WITH" 

"ARRiW" 

"PRINT" 

"END" 

"SEQUENCE" 

"TEXT" 

"FILE" 

"SITE" 

comment; 



sii.iadr; sii«si*5; sn»sc; tallyi«6; comai«tally; 

NEXTI If SC*" " THEN BEGIN SiMSl + li GO NEXTJ END; % SKIP OVER BLANKS 
IF SC»LEFTARROW THEN % END OF RECORD 
BEGIN 

svi»si; sit»LOC svj siii»si*5; 

OVl*Di; OIlnLOC CADRS; 0II«0U5j 
IF 3 SCuDC THEN % END OF RECORD 

BEGIN 

tallyi-cqma; 5Pcscani»tallt; go to exit; 

End; 
sii»sv; oi»«ov; 
end; 

IF SC*"*" THEN X could BE A CONTINUATION CHARACTER 

BEGIN TALLYi»5; comai-tally; sii«si+i; GO TO NEXT; end; 
TALLSfi»6; coma»»tally; X NOT a continuation 

FTOGCJUMP OUT TO FllL); X JUMP TO FILENAME SCANNER 

IF SCsALPHA THEN X COULD BE ALPHABETt DIGIT OR "QMARK" 

BEGIN IF 5C LSS "0" THEN GO TO LETTER; 

IF SC GTR "9" THEN ELSE GO TO NUMBR; 



76000200 
76000300 
76000310 
76000320 
76000330 
START OF SEGMENT 
76800340 
76000350 
76000360 
76000400 
76000500 
76000600 
76000700 
76000900 
76000900 
76001000 
7600U00 
76001200 
76001210 
76001300 
76001400 

76001500 
76001600 
76001610 
76001700 
76001800 
76001900 
76002000 
76008100 
76002200 
76002300 
76002400 
76002500 
76008600 
76002700 
76002710 
76002720 
76002800 
76002900 
76003000 
76003100 
76003200 
76»03210 
76003220 
76003230 

76003240 
76003250 

76S03260 
76003270 
76003280 
76003300 
76003400 
76903500 
76003550 
76903600 
76003700 
76003800 



0061 
0061 
0061 
0061 

0061 

********* 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0001 
0003 
0004 
0004 

ooos 

0006 
0006 
0006 

oooa 

0008 
0008 
0008 
0009 

0010 

0011 
0013 
0013 
0014 
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•t I 



4 w 



• ' I 



'* \ t 



H 



END IF AUPHA; 
X, «f*.t • 

% MUST BE A DELIMITER 

diiploc t; dii*di*7; dsj»chr; * save the delimeter 

SVIiSli SltftOC SV; DIlxQADRi OSIiWDS; X STARTING ADDRESS 

SllaSvi TALUYl^lOi SPC5CAN I »TALLYi TALLYJ«0; 

63(IF SC^UEFTARROW THEN 
BEGIN 

SV««SI; SliwLOC SV; Sn5>5I+5; DIMUOC EADRS; DII*0I + 5i 
IF 3SC«»DC THEN JUMP OUT TO EXIT ELSE Sll«SVJ 

IF SC»T THEN JUMP Out; X 2ND DELIMITER 

TALLYt«TALLY*l^ SHwSI*UI 
IF TOGGLE THEN ELSE X TOO LONG 

BEGIN TALLYlslOi SPCSCAN»*TALLY^ GD EXIT; END; 

sn»si+i; svi»si; x skip over 2nd delimiter* save address 
tistally; sii!5LQC t; oii^siz; Dsi»wos; x sue 
sit»Loc sv; dii^iadr; d$i«wos; x next address 

TALLYl'S; SPCSCANIwTALLY; X CODE FOR DELIMITED STRING 

GO TO exit; 

X , ♦.♦tf ♦...#♦ , t.**..f f « 

LETTERJ X SHOULD BE AN "INSTRUCTION" 

svi«si; tallyibo; x save starting address 
sii«Loc sv; dii«oadr; dsiswds; sii«sv; 

9CIF SC LEQ "9" THEN ELSE JUMP OUT; 

IF SCsALiHA THEN ELSE JUMP OUT; Sll»5I*i; TALLY l«TALLY + l ); 
IF TOGGLE THEN X TOO LONG 

BEGIN TALLYifli; SPCSCAN I*TALLY; GO EXIT; END; 

ovissi; SII9L0C Dv; dii»iadr; dsuwds; x next address 
totally; sn»LOC t; siiwsi+7; x size of "instruction" 

IF SC LSS "3" THEN X 3 CHARACTERS MINIMUM 

BE8IN TALLYI*12; SPCSCAM »TALLY; GO EXIT; END; 

x now chec« input string against vocabulary 
diiwVqcab; dvi»di; tallymo; 

VSIZECSH*5Vi IF T SC » DC THEN JUMP OUT; 

diudv; Dit«Di*e; dvi»di; tallyi-tally+d; 

IF TOGGLE THEN ELSE X NO MATCH 

BEGIN TALLYIslg; SPCSCANI«TALLY; GO EXIT; ENO; 

ti»tauly; siisLOC t; diuwhich; dsiswds; 

TALLYt*i; SPCSCANIbTALLY; X CODE FOR "INSTRUCTION"; 

GO TO exit; 

X 
NUMBRl'x SHOULD'bE A SEeUENCE*NUM8ER •»••••••• f..t». 

sv(«sii sn«LOQ sv; dm«oadr; dsuwds; x starting address 
simsy; tallymo; 

9(IF SC GTR "9" THEN JUMP OUT; 

IF SC LS§ ••0" THEN JUMP OUT; $II«'5I*i; TALLYl«TALLY + i); 
IF TOGGLE THEN ELSE X TOO LONG 

BEGIN TALLYI»13; SPCSCAN«*TALLY; 60 EXIT; END; 
TUTA^LY; 63<IF 5Ca" " THEN SIUSI + I ELSE JUMP OUT); 
IF Sfi*""-" THEN X SEQUENCE RANGE SPECIFIED 

BEGIN SH»Sl + i; TALLYI»«; END EtSE TALLY!»3; 

$v»«S]; sii'LOC sv; oirauoR; dsi«mos; x next address 
sii»Loc t; dii'Siz; osmwos; x size of field 

SPCSeANl»TALLY; GO TO EXIT; 
FIIL« X LOOKING FOR A FILE NAME 



76003900 

76004000 

76004100 

76004200 

76004300 

76t04400 

76004500 

76004510 

76004520 

76004530 

76004550 

76604600 

76S04700 

76904300 

76004900 

76005000 

76005100 

76005200 

76005300 

76605400 

76005500 

76005600 

76005700 

76G05600 

76*05900 

76006000 

76006100 

76006200 

76006300 

76006400 

76006500 

76006600 

76806700 

76*06800 

76006900 

76807000 

76007100 

76007200 

76007300 

76007400 

76007500 

76807600 

76007700 

76007900 

76807900 

76008000 

76008100. 

76008200 

76008300 

76008400 

76008500 

76008600 

76008700 

76008800 

76008900 

76008905 

76008910 



0015 
0015 
0015 
0015 
0016 
0017 
0018 
0019 
0019 
0021 
0022 
0022 
0024 
0025 
0025 
0026 
0026 
0027 
0028 
0029 
0029 
0029 
0030 
0030 
0031 
0033 
0035 
0035 
0036 
0037 
0038 
0038 
0040 
0040 
0040 
0043 

0045 
0045 

0046 
0047 
0047 
0048 
0048 
0048 
0049 
0049 
0050 
0053 
0053 
0054 
0057 
0057 
0099 
0060 
0060 
0061 
0061 



sv»»si; sii«i„oc sv; dii«oadrj osi«wos; % start of sthinq 

SIlsSvJ TALLYt«iOJ 

IF SCsAtPHA THEN EISE X MISSING FIUE NAME 

BEGIN TALLYl»l4; 5PCSCANI -TAULY; GO TO EXIT; ENO; 
7(IF SCsAlPHA then ELSE JUMP OUT; 51l»51+i; TALLY J«TAULY+1 ); 
IF SC*"/" THEN % SECOND NAME GIVEN 

BEfilN SU«SJ + i; TALLYl-TALLY + U % SKIP OVER "/" 

7(lF SCwlLPHA THEN ELSE JUMP OUT/ SIMSI + U 

END; 

svi«si; sit»LOC sv; diiviadr; Dst»wDS; % next 

TjaTALLY; SIIbLOC T; 0I»*S1Z; DSUWOS; % SUE 

tallyi*?; 5pcscan»»tally; go exit; % code for 

EXITI 

END stream procedure spcscan; 



TALLYIfl-TALLY + n; 

AOOKESb 

OF FILE name 

FILE name 



7600891S 

76008920 
76008925 
76008930 
76008935 
76008945 
760089S0 
76008960 
76008965 
76008970 
76008975 
76008960 
76009000 
76909100 



0062 

0063 
0063 
0064 
0065 
0068 
0068 
0069 

0072 
0072 
0073 
0074 
0074 
0074 



SPECSCAn»*SPC8CAN 

(IADR'0A0R»SIZ'VQCAB#V5IZE*WHICH#FT0G»EA0RS); 

End procedure specscan; 
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76009110 T 

76009120 T 

76009130 T 

IS 84 LONGh 



0076 
0076 
0081 
NEXT SE6 



********** **#*****4r**4k******************************** 

TO check syntax and pack information INTO stack, 



" instruction 

FILE specified 

file specified 
" instruction 
instruction 

INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
FIND STATEM 



RECEIVED) 



X*********************************************************************** 

PROCEDURE REPLACEITtLCW/STACKj; BOOLEAN LCW; ARRAY STACKC03; 

X***************** 

BEGIN 

COMMENT ROUTINE 

STACK CQOEI 

STAcKtBASE*i3. 

STAcKCBASE*13i 
STACKCBASE+Ilf 

STAcKClASE+llt 

STACKCBASE+n» 

stacK[base*U. 

STAcKCBASE + n» 

STACKtBASE + U, 

STAcKCBASEfUi 

STACKCBASE+l]f 

STACKCBASE4>n, 

STACKC8A5E*nt 

STACK[BASE + n, 

STACKtBASE*n» 

STACKtBASE + n» 
4 CHARACTER CODE 

1ST CHARACTER 

2ND CHARACTER 

3RD CHARACTER 

4TM CHARACTER 
THE ROUTINE USES 

END OF comment; 

DEFINE WRD «» STAC 



COIIOU 
C02I0U 
C03I01] 

C04I0U 

to5»on 

£061013 
C07I0U 

cosion 
Ciiion 

(121013 
C17»0U 
C18I0U 
C19I013 
t20l043 
C24t243 

PRECEEDS 
• TYPE OF 
a I IF "F 

M I If PI 

» SIZE C 
MESAGE/G 



"FILE 

INPUT 
OUTPUT 

-SITE 

"FIND " 
-REPLACE " 
"FIRST " 
"LITERAL " 
"PRINT " 
"SEQUENCE" 
"TEXT " 
REPLACE OR 



FIRST REPLACE INSTRUCT 

STRING COUNT ) 

TOTAL SIZE OF STATEMENT ,( 

EACH "STRING" IN STACK! 

STRING ( 2. 3 OR 4 > 
IRST" ONLY* IF ALL ( FOR 
ITERAL" COMPARISON* IF N 
NO OF CHARACTERS IN STRING 
ANDE RECORDS MSQVAL THRU M 



RECEIVED) 

RECEIVED) 

RECEIVED) 

RECEIVED) 

RECEIVED) 

RECEIVED) 

RECEIVED) 

KECEIVED) 
ENT COMPLETE) 
ION RECVD) 

NO, OF CHARACTERS 



REPLACE 
OT 

)• 
SGVAL*6 



ftog 



WRD, 



KtBASE+1) ## 
[011013 *, 



START 



76009200 
76009300 
76809400 
76009500 
76609600 
76009700 
76009710 
76009720 
76009730 

76009740 
76009800 
76009900 
76010000 
76010100 
76010200 
76010300 
76010400 
76010500 
76010600 
76010700 
76010800 
76010900 
76011000 
76011100 
76011200 
76011300 
70011400 
76911500 
76611600 
OF SEGMENT 
76Q11610 



0061 
0061 
0061 
0061 
0061 

0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 

0061 
0061 

0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 

0061 

********** 

T 0000 
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• ' 



INFIL 
OUTFIL 
SITE 
FND 
REP 

frst 

LIT 
PRNT 
SEQ 
TEXT 
OK 

FREP 

STR6CNT 

TSIZ 



WR0,C02I0U t, 
WR0*C03t01] Mf 
WR0*C04l0n *» 

wRo.cosion «# 

WR0,C06l0n ## 
WR0fC07l0U ## 
WRD,COatO|] #f 

WRO.CUiOU $t 
WR0*C12I0U *f 

wRo.cmon *, 
wRD.uatou I* 
wRo,ci9ion *> 

WRD,C20104) $, 
WR0|C24t24) «, 
3TACKIBASE3 #J 



PREV 
ARRAY V0CABC»«l83i 

DEFINE MSGVAL « 50 #* A » STACK #; 
INTEGE8 X; 

REAU IAORiiOADR#AROAOR*ENDAOR*TYPE*SIZ*VSlZ*WHICH; 
LABEL EXlT*CASEi; 

REAL STREAM PROCEDURE ERRVALUECQADR ); VALUE OADR; 



Ik********************************* 



X*************************«*************************«************** 



begin x extract string for error message 
siipOaor; dii.loc errvalue; os««8lit''o 
7CIF sc^alPha Then osmchR else jump out); 

END STREAM PROCEDURE ERRVALUE; 



"; oiMoi-7; 



760U620 
7681X630 
760U640 
760U700 
76011800 
760U900 
76012000 
76012100 
76012200 

76012300 
76012400 
76012^00 
76012600 
76012700 
76012800 
76012900 
76013000 
76013100 
76013200 
76013300 
76013400 
76013500 
76013600 
76013700 
76013800 
76013900 
76014000 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0003 
0005 
0007 



X***********************************************************it****** 



Real stream procedure cnvert(oaoh*siz); value oaor»su; 



****************************************************************** 
STIkQADR; DIi«LDC CNIVERTi OStsSI? DCTJ 



BEGIN siisoadr; dh*loc cnvert; osjssiz Oct; 

END STREAM PROCEDURE CNVERT; 



70014100 




0008 


76014200 




0008 


76014300 




0006 


76014400 




0008 


76014500 




0009 



STREA 



Jl****************************************************************** 
M PROCEDURE CLEARSTACK(STACK*T5lZ); VALUE TSIZ; 
X****************************************************************** 

« icon nn-r yUC eTATv tn AitnTn Dn^r^Teiir Ci*^ nTv c- o n n o cr f 



BEGIN % ZERO OUT TH£ STACK TO AVOID POSSIBLE FLAG BIT ERRORS; 
LOCAL Tl*T2; 

sii«»Loc Tsiz; sn»si*6; 

DI»»LOC TU DI»-Dl + 7; DS«»CHR; DU'LOc T2; DI« = DI + 7; OSlsCHR; 
On^tSjACK; X 3HOULO POINT TO STACKCBAsE*23 
TlC2(DSlw32LlT''0'')); T2CDSI«L IT^O"); 
END STREAM PBOCEOURE CLEARSTACK; 



76014600 




0010 


76014700 




0010 


76014800 




0010 


76ei4900 




0010 


76015000 




0010 


76015100 




0010 


76815200 




0010 


76915300 




0012 


76015400 




0012 


76015500 




0020 



X* 



***************************************************************** 
DRnrrniiRr cm /i . ARnAnnc.F^Kin&noc ^ t 



STREAM PROCEDURE SETL{L*AR0ADRS*EN0ADRS); 



X* 



***************************************************************** 



76015600 T 0020 
76015700 T 0020 
76615800 T 0020 



BEGIN LOCAL SV; 

DIlsL; DSti»8HT"9"; OSl» LIT LEFTARROw; 
DSI«7LIT"0"; 0SI*LIT "if"; 



DSlw/LIfO"; 
0SU7LIT'*0''; 
0SIt7LIT''0''; 

D5»'»7l.lT'*«''' 
DSIW7LIT"*"; 

sn»L; svj«sii 



OSIaLIT 
DS|»LIT 
DSI»LIT 
OSI'LIT 
DSI»»LIT 
SII'LOC 



sv; 



DI»»ENOADRSJ DSl»WDS; 



sii»sv; sii«si+8i svissi; su»loc sv; diisaroadrs; dsi»wo5; 

END STREAM PROCEDURE SETL; 



76015900 




0020 


76016000 




0021 


76016010 




0023 


76016020 




0024 


76016030 




0026 


76016040 




0028 


76016050 




0030 


76016060 




0031 


76016100 




0033 


76016200 




003« 


76016300 




0036 



STREAM PROCEDURE SAVEITC5TACK*0l0SU#0ADR# A0D5I2#TYPE#NEWSU}; 

X* ***************************************************************** 
VALUE 0lDSIZ»0A0R»ADDSI2*TYPE#NEW5IZ; 
COMMENT SAVE STRING AND PREFIX IN STACK; 
BEGIN LOCAL T1#T2*LT; 

sn»Loc oldsiz) si»»si+6; % characters 

DIULOC Ti; DIIbDI + 7; OSIcCHR; DIIsLOC 
DH^STACK; DIt*Dl*16; % SKIP OVER 15T 2 
TlC2(Dl»"Dl+32)>; DII«0I*T2; X SKIP OVE 
SII»»L0C type; SIMSI + 7; DSf»CHR; % STRI 

si»«stack; sit«si+9; 

SKIP SB) IF SB THEN DSI-LIT^l" ELSE DS» 
LTi«Di; SKIP SBj IF S@ THEN DSI»LIT"1« 

sii-Loc AODsiz; sii*si*7; dsi»chr; % si 

8IU0ADR) 0SI»AD0SIZ CHR; X TRANSFER ST 

SI»»L0C NEWSIZ) SI«»SI*4; DIIsSTACK; 01 

X CHECK FOR ALL BLANKS IN TYPE I STRINGS 

SlIsLOC TYPE) SI»sSl*7l IF SCs"!" THEN 

BEGIN SIIsQADR; ADOSUCIF SC»" •• THEN 

IF TOGGLE THEN % ALL BLANKS* MUST BE 

BEGIN DIt*LTI DSULIT"!"; END) 
END; 
END STREAM PSOCEDURE SAVEIT; 



TO SKIP OVER 
T2; DnaOI+7; OSIxCHR; 
WORDS 

r previous strings 
ng type ( 2#3'4 or 7 ) 

•lit"©"; x "first" code 

ELSE DSI^LIT^O"; % "LITERAL" 

ZE OF STRING 

RING 

i»oni2; D5IS4 chr; 



5I««SI*1 ELSE JUMP OUT); 
In "LITERAL" mqDE 



76016400 
76916500 
76016600 
76916700 
76016800 
76016900 
76017000 
76917100 
76017200 
76017300 
76017400 
76017S00 
76017600 
76017700 
76017800 
76017900 
76018000 
76018010 
76018020 
76018030 
76018040 
76018050 
76018060 
76018100 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0036 
0036 
0036 
0036 
0036 
0036 
0037 
0037 
0039 
0039 
0042 
0042 
0043 
0045 
0047 
0048 
0049 
0050 
0050 
0051 
0055 
0055 
0056 
0056 



u BRnrrniiPr CPTV/nr &a/ unr ad ^ i 



STREAM PROCEDURE SETVOCAB( VOC AB ); 



X* 



***************************************************************** 

tlBUn/>AB> nSlsl^l TTItrTMn OcOi A/np rTD«T I TTcDAI nt 



Begin dimvqcab; os»»32lit"fino 

DSI«48LIT"WITH ARROW PRINT 
DSr»»l6LIT"FlLE SITE "; 
DSl»4aLIT"NEQ EQL LS5 
END STREAM PROCEDURE SETVOCAB; 



REPLACE FIRST LITERAL "; 
END SEQUENCETEXT "; 



GTR 



LEO 



GEQ 



"; 



76018200 




0056 


76018300 




0056 


76018400 




0056 


76018500 




0056 


76818600 




0061 


76018610 




0067 


76016620 




0070 


76018700 




0076 



X*4***************************************************4r*«********** 



CASE DOING OF 



76018800 T 0076 
76019100 T 0076 



* « # # 



.* 



'^ 



ENO; 



BEGIN 

BEGIN X CASE 

LABEL L0QP*STRING*ERR0R; 

IF NOT CONTINUEBIT THEN X FIRST CALL ON THE ROUTINE 

8E81N STACKt8ASE4.l3l«0; CONT INUEB IT l»TRUEi PREVI»-W 
IF PReVRCW - BASE LEQ 34 THEN % NOT ENOUGH ROOM 

BEGIN CLEARSTACKCSTACKi;BASEt2]fTSIZ}j 

GOERRCNO ROOM''#MSGVAL); 

END; 
lADRUADORESSCWORKU]); X ADDRESS OF INPUT RECORD 

SETV0CABCVOCA8); vsuiwie; X set up vocabulary 

SETLCL'AR0ADR*ENDADR); X location of 6 NINES AND LEFT ARROW 

Looei X start of syntax check 

TYPEt*SPECSCAN(IADR*OAOR#SlZ*Vt>CAB*VSU'WHICH#FTOG#WORKENOAORS);XSNTX 
MSGPTR J* MSGVAL i % "ERROR IN FINO/REPLACE STATEMENT 
IF TYPEWI THEN X AN "INSTRUCTION" 

BEGIN IF WHICH LSS 2 THEN X "FIND" OR "REPLACE" 
SeGIN if FND*REP NEQ THEN GQ ERROR; X REDUNDANT 
If WHICHbO THEN IF FREP'l THEN GO ERROR ELSE FNDl»l 
ELSE X WHICH • I 

BEGIN REPl'^i; FREPI»U ENOi 

frstiuo; lit»50; okiso; 

EwD X IF MHICH LSS 2 
ELSE IF WHICH LSS 6 THEN X "FIRST"*"LITERAL"#"WITH" OR "ARROW" 
BeQIN if REP+FNO NEQ I THEN QQ ERRORi 
If WHICH LSS 4 THEN X "FIRST" OR "LITERAL" 

BEQIN IF STRGCNT NEQ THEN GO TO ERROR; 

IF WHICH»2 THEN IF FRSTsl THEN 

ELSE IF LiTwl THEN GO TO ERROR 

END X IF WHICH LSS 4 
ELSE IF WHICHS4 THEN GO TO LOOP X "WITH" (OPTIONAL WORD ) 
ELSE X WHICH a 5 < "ARROW" ) 

BEGIN oaorisaroadr; 5izi«i; TYPE«»2; GO TO string; 

END X IF WHICH » 5 
END X IF WHICH LSS 6 

"PRINT" 

GO TO error; prnti»i; 



GO TO ERROR ELSE FRSTUl 
ELSE LlTl«i; 



TEXTI»o; 5E«»»o; 



TYPEU3; GO TO STRING/ 



ELSE IF WHICH»6 THEN X 

BEGIN IF PRNT«l THEN 

END X IF WHICH m 6 
ELSE IF WHICH«7 THEN X "END" 

BEGIN oaorisEnoadr; sizisa; 

END X IF WHICH«7 

ELSE ir SEQ+TEXT NEQ AND WHICH lSS 10 THEN GO TQ ERROR 

ELSE IF WHIcHpB THEN SEQ t« I 

ELSE IF WHICH. 9 THEN TEXTI« 1 

ELSE IF WHiCHslO THEN X FILE INSTRUCTION 

BEGIN IF FReP*1 THEN 60 ERROR! FTOGIsU 

If INFILwO AND PRNT-0 THEN INFlL»»l 

else if 0utfil»0 then 0utfil«*1 

Else go to error; x too many files specified 

END X IF WHICH m JO 

ELSE IF WHICH«U THEN SITe««1 
ELSE IF WHICH LEQ 17 THEN 
BEGIN 0ADR»«AR0A0R*<WHICH'-U); 
Sl2|«i; TYPEI«2; 

GO TO string; 
end; 



76019200 

76019300 
76019400 
START OF SEGMENT 
76019500 
76019600 
76019700 
76019800 
76019900 
76020000 
76920100 
76i20200 
760203Q0 
76020400 
76020500 
76020600 
76020700 
76120600 
76620900 
76821000 
76921100 
76021200 
76021300 
76021400 
76021500 
76021600 
76021700 
76021800 
76021900 
76022000 
76022100 
76022200 
76022300 
76022400 
76022500 
76022600 
76022700 
76022800 
76022900 
76023000 
76023100 
76923200 
76023300 
76923400 
76023405 
76023410 
76023413 
76023420 
76023425 
76023430 
76023435 
76023440 
76023450 
76023460 
76023470 
76023480 
76023490 



T 0077 
0077 
0077 

******** 

0000 
0001 

0007 
0008 
0012 

0018 
0018 
0020 
0022 

0024 
0024 
0028 
0030 
0030 
0032 
0036 
0042 
0043 
0051 
0060 
0060 
0061 
0066 
0066 
0069 
0075 
0082 
0082 
0083 
0083 
0087 
0087 
0087 
0088 
0100 
0100 
0101 
0104 
0104 
Olio 
0113 
0118 
0121 
0127 
0133 
0139 
0140 
0140 
0144 
0146 
0149 
0150 
0151 



132 



GO TO uoop; 
END « IF TYPE»l 

ELSE IF TYPE LSS 5 THEN X A STHINQ OR SEQUENCE NUMBEK 
STRING! 

8ECIN IF TypE»2 THEN % A STRING 

BEGIN IF FND+REP NEfl I THEN GO TO ERRORS 
IF REP^l THEN % A REPLACE STRING 
BEGIN STRGCNTliSTRGCNT + li 
IF SIZ»0 ANQ STR(iCNT»l THEN GO TO ERRORS 

TYPE «* STRGCNT; % TELL SAVEIT WHETHER OLD OR NEW STRING 
IF STRGCNTfg THEN % HAVE BOTH 0^0 AND NEW STRINGS 

BEOIN REPUOi STRGCNTJsOi OKI»U ENDi 
END X IF A REPLACE STRING 
ELSE OKI»li X IF A "FIND" STRING 
End X IF TYPE « 2 
ELSE X A SEQUENCE NUMBER# TYPE » 3 OR 4 
BEGIN X!bCNVERT(OADR*SIZ); 
If X LEQ PREV THEN GO TO ERROR ELSE PREVIsX; X CHECK NUMBER 

eno if a seq no; 

X|*tSIZ ♦ SIZ ♦ 4; X TOTAL NU. OF CHARACTERS TO BE ADDED 
IF X GTR 230 THEN X NQT ENOUGH ROOM 

BEGIN CLEARSTACKCSTACKtBASE*23*TSj2); CONTINUEBIT IP FALSE; 

G0ERRC"T00L0NG''iM5GVAL); 
END X IF X GTR 230 
ELSE SAvfIT(STACKtBASE]*TSlZ»OADR#SlZ#TYPE*X); X STORE STRING 

GO TO loop; 

END X IF TYPE LSS 5 

ELSE IF TYPE » 5 THEN X A CONTINUATION CHARACTER AND LEFT ARROW 

BEGIN TEMP j* 3?; WAJTFOR »« VINPUT; 

IF SCHEoyLINE THEN REQUESTIPCLLJ; GO TO EXIT; 

END X IF TYPE « 5 

ELSE IF TYPE • 6 THEN X CALL OUT THE PROGRAM 

BEGIN 

continuebit l» false; 

if sdurcefile«0 and infll«io then 

begin clearstack(stack[base+23#tsiz); g0err("no flle^^msqval); 

End; 

TEMP im 3j 

IF NOT BOOLEAN(UK) THEN 

BEGIN CLEARSTACKC5TACKtBASE*23#TSl2); 

60EBR("lNCQMPL"*MSeVAL); 

end; 

CLCaR(W0RKC0]#29); 

M0VEC30* MOROSf STACKCBASEfI]# W0RK|;03); 

di$kwriteces»2); 

CLEaRSTACK(STACKCBASE+23#TSIZ); 
IF tPCOUNT NEQ THEN 

BEGIN 

LlTOUTCWAIT. ••*NOCRLF); 

DOING t» M 

WANT »■ VUPDATE; 

fio TO ixit; 
End 

EL9E go TO CASEi; 
END X IF TYPE * 6 
ELSE IF TYPE»7 THEN X FILE NAME 
BEGIN 



76023500 

76023600 

768237Q0 

76023800 

76623900 

76024000 

76024100 

76024200 

76024210 

76024300 

76024400 

76024500 

76024600 

76024700 

76024800 

76024900 

76823000 

70025100 

76025200 

76025300 

76025400 

76025500 

76025600 

76025700 

76Q25800 

76625900 

76026000 

76026100 

76026200 

76026210 

76926300 

76926400 

76026500 

76926600 

76026610 

76026620 

76026630 

76026700 

76926800 

76026900 

76027000 

76927100 

76027200 

76Q27300 

76027400 

76027500 

76027600 

76927700 

76027800 

76027900 

76028000 

76028100 

76028200 

76928300 

76028400 

76026410 

76028415 



0151 

0151 

0151 

0152 

0154 

0154 

0159 

0161 

0166 

0170 

0172 

0174 

0184 

0184 

0187 

0187 

0187 

0190 

0192 

0192 

0195 

0196 

0202 

0209 

0209 

0215 

0215 

0215 

0217 

0219 

0225 

0225 

0227 

0227 

0229 

0233 

0243 

0243 

0244 

0245 

0849 

0256 

0256 

0257 

0260 

0263 

0267 

0268 

0269 

0270 

0270 

0271 

0273 

0273 

0281 

0281 

0282 



.* 



••» 



X tm TSIZ + Sli + «; X NO OF CHARACTERS TO BE ADDED 

if x gtr 230 then x not enough room 
Begin clearstackcstackcbase+zJ'TSU); continuebitmfalse; 
soerrctoouong'smsgval?; 

End X if X GTR 230 
ELSE SAVEIT( STACK CBASE3#TSI2#OADR*sa*TYPE#X)l 
FTOQisO; 
60 TO UOOPJ 
END % IF TYPE • 7 
ELSE X MUST BE AN ERROR 
BEGIN 

MSSpTR J» MSGVAL ♦ TYPE • 9; 
ERROR! 

TEMP »• 3J 

clearstack(stackcbaset23*tsu); 
continuebit !• false; 
goerrcerrvaluecoadr)*msgptr); 

END IF AN error; 
END CASE O; 

BEGIN X CASE i 

CASEH 

CLlARCW0RKC0]#29)i 

v<ork[oh«esp2; 

W0RKt33l''MAKEFNC*'jS"#LL); 

WQRKCa]t»W0RKC6]l«USERC00E; 

WORKC53t»SOURCEFILE; 

WORKC73 19 FILETYPE; X CHECK FOR 

RUNll»lF BQQLEAN(FNOJ THEN "FIND 

run2i.if boolean(fnd) then "disk 
errswi«u8ercode; 
diskwritecespu; 
if boole«n(fnd) then 

BEGIN 

IAMt«VOlSPATCH; CQMMONVAUUElsESpi; LITOUT( "WAIT "»NOCRLF)/ 
END 
ELSE 

BEGIN 

wanti»vdispatch;ooing$»2;if not concise then litoutcwaiti "#i); 
end; 
EojMsG u NOT concise; writeasterisk t« concise; 
% void 

go to exit; 

END CASE i; 
BEGIN X CASE 2 

LABEL Dummy; 

IF C0MM0NCEl.Ltt2«n * THEN X NORMAL EOJ 
BEGIN 

IF BOOLEANCFREP} THEN 
IF C0MM0NCELL»C2H2n NEQ THEN X SUBSTITUTIONS MADE 
BEGIN 
S0U8CEFILE l» MAKEFN("lS"iUL J; 

fiooDOBJ i« false; 
cancelckptcac*3>; 
End; 
writeasteri8ki«true; 



TYPE DATA FILES 
" ELSE "REPLACE"; 
" ELSE "CANDE "* 



7»028«20 
76028425 
76028430 
76028435 
76Q28440 
76028445 
76026450 
76028455 
76028460 
76028S00 
760286Q0 
76028700 
76028800 
76028900 
76029000 
76029100 
76029200 

76029300 
76029400 
132 IS 327 LONG 
76029500 

76029600 
76Q29700 
76029800 
76129900 
76030000 
76030100 
76030150 
76030200 
76030300 
76030400 
76030900 
76030600 
76030700 
76030710 
76030720 
76030730 
76030740 
76030750 
76030760 
76030800 
76030900 
76831000 
7603U00 
76031200 
76»31210 
START OF SEGMENT 
76031300 
76031400 
76031500 
76031600 
76031700 
76031890 
76031900 
76032000 
76032100 
76^32200 



0283 
0286 
0286 
0293 
0899 
0299 

0305 
0308 
0308 
0308 
0308 
0309 
0311 
0312 
0312 
0316 
0318 

0326 
0326 
NEXT SEG 
0079 

0079 
0080 
0081 
0082 
0084 
0087 
0088 
0090 
0094 
0098 
0099 
0102 
0104 
0104 
0107 
0107 
0107 
0114 
0118 
0118 
0124 
0124 
0126 
0126 
0126 
********* 

0000 
0001 
0002 
0003 

ooos 

0006 
0008 
0010 
OOll 
OOll 



131 



133 



END % IF EOg OK 

ELSE 

BEGIN % ERROR EUJ 
IF SCHEDULINE AND B00l.EAN( FRtP J 
l.INECLEABCUCW#At*3)i 
MSQpTR IP MSQVAU; 
WRITEASTERISK l« FALSE; 
END i X IF ERROR EOW 
lAM Is WANT l« WAITFOR la O; 
END CASE 2i 

END ALL cases; 



AND NOT NOSTOP THEN SCHEOERROR; 



EXIT! 

END PROCEDURE 



replacit; 



76032300 T 00J3 
76032400 T OOU 
76032500 T 0013 
76032600 T 0014 
76Q32700 T 0029 
76032600 T 0030 
76032900 T 0032 
76033000 T 0034 
76033100 T 0034 
76033200 T 0036 

133 IS 37 LQNQ# NEXT SEa 

76033300 T 0127 
START OF SEGMENT ********** 

134 IS 4 LONG# NEXT SEG 

76033400 T 0128 
76933500 T 0128 
131 IS 134 LONG* NEXT SEG 



131 

134 
131 



X**********«**************************i,*************tlr******************K 

PROCEDURE REMEMBERTHIS CLCWj; 

X******************************************************************«***2 
BOOLEAN LCM; 

BEGIN 
DEFINE CTR • £3163 Mp USEDOROPEN s Cl2«36] #; 



REAL STREAM BRQCEOURE BITNUMBgR (T); 
VALUE t; 

BEGIN 
LABEL L; 

sit» Loc t; sii" si*2; 

• CIF SC* ♦•"" THEN BEGIN SHnSl + i; TALLY I»TAlLY ♦d; END 

ELSE 
«CIF SB THEN BEGIN SKIP i SB; TALLY I«TALLY* i; END 

ELSE 

JUMP OUT 2 TO L>); 
L« BITNUMBERI" TALLY; 

END stream; 



90016000 T 0061 

90017000 T 0061 

90818000 T 0061 

90*19000 T 0061 

90020000 T 0061 

90021000 T 0061 

START OF SEGMENT ********** 135 

90022000 T 0000 

90023000 T 0000 

90024000 T 0000 

9002S000 T 0000 

90026000 T 0000 

90027000 T 0000 

9002B000 T 0002 

90029000 T 0002 

90030000 T 0004 

90031000 T 0004 

90032000 T 0005 

90033000 T 0006 



REAL 



LI 
S 

TO 

IF 

BEGIN 

LI 

END IF 

BEGIN 

TH 
IF 
TO 



NK# w# T*s; 
»■ TQeECONTROL; 

BECONTROL,USEDOROPENI» RCBCWI* TOflECONTROL •U5EOOROPEN3 
OR NOT B(TI*R(NOT BCW+U OR BCW)))); 
LINKIa 35 - BITNUM8ER <T) L5S THEN 



TOUTC"NOTDONE''#CRLF}; 
NOTREMEMBEREO ELSE 



TOBECONTROL »» »; 



INGSTODO I* BCW »• R(THlNGSTODO ) ♦ U; 

W GTR I THEN T0BE0QNECRCTHlN6SLA5T)f OJ ,CTR 
BED0NECLINK»03 l« T&LINK [ 1 1 40 I 83 ^ 



!• link; 



90034000 


T 


0007 


90035000 




0007 


90036000 




0007 


90037000 




0006 


90036000 




0009 


90039000 




0014 


90040000 




0016 


90041000 




0017 


90042000 




0019 


90043000 




0019 


906A4QOO 




0021 


90945000 




0024 


90046000 




0029 



fr 



• / I 



>J.-' 



V t t 



,n 



END 
END 



THINGSUASTf* B<LINK); 

IF W « 1 THEN THINQSLINKI* B(tlNK); 

MOVE Cl5*waRDS#W0RKt0]#TOBEOONEClINKf IJJ* 

MOVE (5#W0RDS#EVENTSt0]*T0BED0NECHNK»l6n; 

INCCTUBECQNTROL.CTR)^ 

IF TOBECONTRQL.CTR GTR 20 THEN WECANUSEDATA l» FAUSE* 

IF REMEMBERED; 

OF REMEM8ERTHISJ 



90047000 




0032 


90i«eooo 




0035 


90049000 




0036 


90050000 




0041 


90051000 




0044 


90052000 




0047 


90053000 




0050 


90054000 




0050 



135 IS 53 UONGf NEXT $EQ 



PRnCEOlieE QETSOMEtHINGTQDQ (LCMjA); boolean LCWi ARRAY AC031 



getsomethingtodo (lcw,a); boolean ucwi array acoj; 



********************************************************* 
Q r /> T Kl 



************* x 



DEFINE 



BEGIN 



real LINK* 
LABEL 

A&AINI 



W« 



CTR • C3I63 *f USEOORQPEN • [121363 #; 
LCOUNT# LMAXi 



START 



TL» I' COUNT* 
AGAIN, EXITI 

LMAX»*REAL(THlNGSTODQ)i 

LCOUNTtsLCOUNT«i; 

TL »' REALCTHINGSLAST); 

LINK««R(THIN6SLINK}J0EC8CTHIN6ST0D0); 

THINGSLINKIsBCimCWlBTOBEDONECLlNK.OJJ.CTR); 

TOBECONTRQL.USEDOROPENI* % TURN OFF THE BIT FOR ROWtLJNKJ 

R(B(TOBECONTROLtUSEOOROPEN) AND BCH)); 
MOVE C1S«INQRDS«TOBEOONECLINK«OU«MQRKCO]}J 
MOVE C05*WORD5*T08EDQNECLlNK#163#EVENT8t03); 
IF EVENTREASON»VlNPUT OR EVENTREAS0N»VTEACHER OR 

EVENTREASON»VEQUATE THEN 
BEGIN 

WORKAORS I* AOORESSCWORKCU); 
COUNT l» CwORKtO]-U,C39l93; 
W0RKENDADRSl«(W0RKADRS«C0UNT«[40>53}«C0UNTC30t45i33> 

OECRCTOBECONTROLtCTR); 

IF TOBECONTRQL.CTR LEQ 20 THEN WECANUSEDATA l» TRUE; 

REASON»s» eventreason; 

IF savedwhilejnitbusy then 

BEGIN % GET THAT ONE FIRST. 

IF REASON LSS VINPUT OR ReASON m WAITINGSCW,SCWWAITBITS 

THEN 5AVEDWHILEINITBUSY Is FALSE ELSE 
BEGIN % THIS ISNT IT. 

IF LCOUNT GTR LMAX THEN 
BEGIN 

reasoni«verror; err5wh»«sys,err'*i busylinemfalse; 
llnetll»ms6ptrl0c3»»28; x task was discontinued 

GO TO exit; 
end; 
rehemberthisclcw); go again; 



end; 



WHILE I NE« TL DO 

IF WH»T0BED0NECI*163ai8l73 LSS VINPUT 
OR M 9 WAITINGSCW.SCWWAITBITS THEN 
BEGIN 



90055000 
90056000 
90057000 
90058000 
90059000 
OF SEGMENT 
90060000 
90061000 
90061100 
90062000 
90063000 
90064000 
90065000 
90066000 
90Q67000 
90068000 
90069000 
90069010 
90069015 
99S69020 
90169030 
90869040 
90069050 
90069060 
90070000 
90071000 
90872000 
90073000 
90074000 
90075000 
90076000 
90977000 
90877100 
90077200 
90977300 
90077400 
99077500 
90077600 
90078000 
90079000 
90080000 
90081000 
90082000 
90083000 



0061 
0061 
0061 
0061 
0061 
********* 

0000 

0000 

0000 
0001 
0003 
0004 
0009 
0013 
0014 
0016 
0019 
0022 
0025 
0027 
0028 
0030 
0032 
0034 
0034 
0037 
0041 
0042 

0043 
0043 
0045 
0049 
0049 
0050 
0050 
0054 

0056 
0058 
0058 
0059 
0099 
0061 
0063 
0065 



136 



SB 



EXITI 



END 
END 



IF 

or 



SAVEDWHILElNITBUSYmTRUE; 

END ELSE n-iTOBEOONECl^OJ.CTR; 

SAVEDWHiUEINlTBUSYi 

GETSOMETHlNGTQDOi 



GO exit; 



90Q8«000 T 0066 

90085000 T 0069 

90«e6000 T 0072 

90087000 T 0072 

136 IS 77 LONG* NEXT 8EG 



PROCEDURE FINISHED (UCW* A)i BOOLEAN LCWi ARRAY ACOJi 

X*************«*********************************************lk*4r********!k 

BEGIN 

LABEL RESTRT* EXITi 



START 



X,.,,, ,,,,, 

STREAM PROCEDURE 
BEGIN OlIsWORKJ 
0S««45LIT"Y0UR 
DSI»17LIT"S00N 

END plsuogoff; 



PLSLOQOFFCWORKJi 



SCHEDULED TIME 
AS POSSIBLE."; 



is UP. PLEASE LOG OFF A3 "; 



90088000 




0061 


90089000 




0061 


90090000 




0061 


90091000 




0061 


90091100 




0061 


SEGMENT 


******* 


90091200 




0000 


90091300 




0000 


90091400 




0000 


90091500 




0000 


90091600 




0006 


90091700 




0008 
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X,,. 

STREAM PROCEDURE TELLHIMBYEC WORK ); 

BEGIN DlisWORK) 

DSI847LIT"S0RRY#BUT YOU ARE PAST YOUR 
0St«23LIT"KE MUST DISCONNECT YOU,"; 

END tellhimbye; 



SCHEDULED TIME AND "; 



90091800 




0009 


90091900 
90092000 
90092100 
90892200 
90092300 




0009 
0009 
0009 
0015 
0018 



BOOLEAN STREAM PROCEDURE TlMEOK(N»A); VALUE N*A; 
BEGIN SII«L0C a; 5lt«SI+4; NCSKIP SB); 
IF SB THEN TALLY»»l; T IMEOK I'TA^tY; 

END timeqk; 



90092400 

90092500 
90992600 
90092700 
90092800 



0019 

0019 
0019 
0021 
0022 



ALLDONE l» TRUE ; 
IF BOQLEAnCTImERESTRICTBIT) then X USER HAS RESTRICTED TImE PERIOD 
IF NOT TIME0K(ENTIER(TIMeN0WI»TIMe(1)/2160OO)#TIMeLIMITS) THEN 
IF NOT NOTIFIED THEN % USER IS NOT AWARE HIS TIME 18 UP 
BEGIN PlSLOGOFFCWORKJJ TWXOUT (LL»W0RKt03#62#2); 
NOTlFYBIT l«» REAL<TRUE); NOTlFYTlME »« TIMENOW; END 
ELSE 

BEGIN IF TIMENOW • NOTlFYTlME GTR GRACEPERIOO THEN 

BEGIN TELLHIMBYECWORK); TWXOUTCLL#WORKC03#70»2); NOSAVEl«TRUE; 
LlNECLEARCLCW#At*3); ACBASE3»««0; BYE(LCW# AC*] ); QQ EXIT; EnD; EnD; 
IF INITIATEDWHILEBUSY THEN 
BEGIN 



90092900 




0023 


90093000 




0023 


90093100 




0025 


9«093200 




0026 


90Q93300 




0031 


90093400 




0033 


90093500 




0036 


90093520 




0040 


90993600 




004Q 


90993700 




0044 


90093800 




0050 


90994000 




0057 


90995000 




0057 



<- . » » * • 



IF LLJNFO NEQ THEN WAHINGSCW l« UUINFO 

ELSE WAITINaSCW.SCWMAITBlTS !■ O; 
INITUTEOWHIUEBUSY l« B00LEAN(t,LlNFO» .0 M 
IF SAVEOWMaEINITBUSY THEN GO RESTRT ELSE GO EXIT! 



end; 



BUSYLINE 



I* false; 



% VOID 
X VOID 



IF REAL (THINGSTODO) • THEN 
BEGIN 

ALLMCPMSG IK false; 

LIBMSGCTR !• O; 

IF SCHEDULINE THEN REQUESTIP<LL) 

ELSE 

if writeasterisk then 

twxoutcll-astormm); 
writeasteriskibfalse; go exit; 

end; 

COMMENT! SOMETHING HAS BEEN REMEMBERED; 
RESTRTJ RESTAHTNEEDED Is TRUE; 

GETS0METHINGT0D0(LCW*AC*3); 
EXITJENO; 
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900 
900 
909 
900 
901 
901 
901 
901 
9Q1 
901 
901 
901 
901 

901 
901 
901 
901 
901 
901 
901 
901 
901 
9 



96000 
97000 
96000 
99000 
00000 
01000 
02000 
03000 

oaooo 
osooo 

06000 
07000 
07100 
07200 
08000 
09000 
lOOOO 
11000 
12000 
13000 
14000 
15000 
3 LONG« 



0058 

0060 
0064 

0067 
0069 
0069 
0071 
0071 
0071 
0072 
0073 

0075 
0076 
0077 
0061 
0082 
0064 
0067 
0087 
0087 
0090 
0092 
NEXT SEG 



DEFINE BUILDSCW «SCW»«04WAlTF0Rt 10141 I7UPREVRCWU7I 401 834BASE 

C25t40l8UD0tNG[33t41l73&IAMi;4Ot40t8UlCll46l23 

#; 

BUlLDRCW «RCWI«SCM&SREGC03t40<8]&PARAMUl>41i7HTEMP 

Cl8UH7J&D0INGt33l4ll7 3&IAMC40l40i8U2Cl«46l2] 

#; 

STORERCM «A(PREVRCW|«SCWPREV-1}}« RCW $i 
% 

RCW «»aCPREVRCWI»5CKiPHEV3; 

PARAM I«RCMPARAM; 
TEMP IHRCWTEMP ; 

BASE liiRCWBASE ; 

DOING ihrcwooing; 

lAM ISRCWIAM ; 

sreg i«rcmsreg; 

PREVRCWmpREVRCW 4>i; 
WANT mWAITFORUO; 
END OF RfcCALLRCW *i 



DEFINE 

DEFINE 
DEFINE 



RECALLRCWsBEGiN 



XPAGE 

Boolean 
boolean 

ARRAY 
LABEL 



*****************************************************«t**********X 

PiOCEDuRE anotheroperatxon (lcw# A); 
*********************************«******************************x 

Lcw; 

AC03; 
begin 

Li; 



90116000 
90117Q00 
90116000 
90119000 
90120000 
90121000 
96122000 
90123000 
90124000 
9012S000 
90126000 
90127000 
90126000 
90129000 
90130000 
90131000 
90132000 
90133000 
90134000 
90135000 
96136000 

9013^000 
90136000 
90139000 
90140000 
90141000 
90142000 
90143000 
90144000 
START OF SEGMENT 



0061 

0061 
0061 
0061 
0061 
0061 
0061 

0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 

0061 
0061 
0061 

0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
********** 
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JF lAM NEC THEN 
Ll« BEGIN COMMENT THIS PRUCEOURE WILL BE RECALLED; 
BUILORCW; STORERCWi 
END X PROCEDURE IS NOW IDLE AND CAN BE RESTARTED; 
ELSE 

DOING t» OJ 
SREGJoBASE |« BASE ♦ TEMP + PARAM; 

lAM 19 want; 
BuiLOscw; 

IF WANT NEQ THEN 
BEGIN COMMENT A NEW PROCEDURE IS TO BE GIVEN CONTROL^ 

A CBA5E3 «« PARAM; 

DOING l« WANT l» 0' 
END THE NEW PROCEDURE IS NOW READY TO BE CALLEO; 

TEMP im PARAM t« Oi 

IF WAITFOR NEQ THEN 
BEGIN COMMENT WE MUST WAIT 

IF lAM NEQ THEN GO TO 

ANOTHEROPERATION I* FALSEi 

WAITINGSCW t» Sew; 
END LINE WILL NOW WAIT ON EVENTQUE 

ELSE 
BEGIN COMMENT NO WAIT IS REQUIRED; 

IF (ANOTHEROPERATION !• NOT ALLOONE) 
BEGIN COMMENT RESET RETURN InFO; 

RECALLRCW; WAITlNGSCWMBulLDSCW; 
END WE CAN NQW RETURN TO THE LAST UNFINISHED PROCEDURE; 
END IF" LINE DID NOT HAVE TO WAIT; 
END OF ANOTHEROPERATION; 



BEFORE THIS 
LU COMMENT 



LINE 
MAKE 



CAN continue; 
LINE idle; 



AND lAM EOL THEN 
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90145000 
90U6Q00 
90147000 
90148000 
90149000 
90150000 
901S1000 
901S2000 
90153000 
90154000 
90155000 
90156000 
90157000 
90158000 
90159000 
90160000 
98161000 
90162000 
9Q163000 
99164000 
90165000 
90166000 
90167000 
93166000 
96169000 
90170000 
90171000 
90172000 
90173000 
58 LONG 



0000 

0000 

0002 

0011 

0011 

0011 

0012 

0015 

0015 

0022 

0023 

0023 

0025 

0026 

0026 

0027 

002 8 

0028 

0030 

0030 

0032 

0032 

0032 

0032 

0035 
0035 
0055 
0055 
005S 
NEXT SEG 



PR8CEDURE HANDLETHISLINECLCW» A); 

BOOLEAN low; 
ARRAY ACOj; 

BEGIN 
LABEL RESTART* AGAIN* EXIT; 

RESTART! 

lAM l« WANT I* WAITFOR In TEMP t« PARAM le O; 
ALLDONE »* false; 

restartneeoed iw false; 

IF WAJTINGSCW.SCHWAITBITS m REASON 

OR WAITINGSCW, 5CWWAITBITS m RCNOT FALSE ) . C 41 » 7 3 

THEN 
BEGIN COMMENTI SOMEONE IS WAITING FOR THIS EVENT; 

sew Is WAITINGSCW; 

WAITINGSCW la O; 

PREVRCW IS SCWPREV; 
END 

ELSE 
BEGIN COMMENTI WE WERE NOT WAITING FOR IT SO; 

WANT i9 reason; 



90174000 T 0061 

90175000 T 0061 

90176000 T 0061 

90177000 T 0061 

90178000 T 0061 

90179000 T 0061 

90180000 T 0061 
START OF SEGMENT 

90181000 T 0000 

90182000 T 0000 

90183000 T 0002 

90184000 T 0005 

90185000 T 0007 

90186000 T 0008 

90167000 T 0010 

90188000 T OQll 

90189000 T 0011 

90190000 T 0012 

90191000 T 0014 

90192000 T 0015 

90193000 T 0015 

90194000 T 00S5 

90195000 T 0015 



********** J39 



# ' r 



i k. ... 



K 



IF lOLEUlNE THEN 
BEGIN caMMENTI MUST BE A 

IF NOT UOQGEDON THEN 
BEGIN 



NEW EVENT FOR THIS LINE; 



CHARGE'S "li 
END UOQGINQ ON THE SYSTEM; 
BUSYIINE IS true; 
BASE !• SBASEJ 
PREVRCW I* LLWORDS; 



END 
BEGIN 



EUSE 



BEGIN 



IF REA50N»VTEACHER THEN % DONT PERMIT MUUTIPIE INQUIRIES 

IF INQUIRY THEN GO EXIT ELSE INQUIRY »• TRUE; 
IF REASON LSS VINPUT AND NOT INITI ATEOWHReBUSY THEN 



INITIATEDWHJUEBUSY M TRUEi 

uuiNFO I* sew Is waitingscw; 



BASE 

PREVRCW 



l» 



SCWBASE ♦ 
SCWPREV • 



i; 



END 

ELSE 

BEGIN 

IF R(THINGSTODO) GTR 2 THeN 
BEGIN 

|.IT0UT(''N0T00NE"*CRI.F); 
END ELSE 
BEGIN 

REMEMBERTHIS CLCW)i 

IF REASON 9 LLlNFOtSCWWAlTBlTS 

reason lss vinput then savedwhileinitbusy 

remembered; 

exit; 

reason vs 15; 

IDLE OR not; 
BUILDSCW; 
ACPREVRCW] i» BUILORCW; 

WAiTiNfi OR not; 



END 

END 
END 



OR 
IF 
GO 



l« TRUEl 



END 



AGAINI 



IF NOT ANOTHEROPERATlON 
COMMENT! IF WE GOT TO 
THAT CAN BE 
"IAM« 15 SET 
OUT THE APPR 



BEGIN 



BEGIN 



CASE lAM OF 
I 

FINISHE0(LCW* At*3);X 00 

HITHERE(LCW,AC*3); % 01 

BREAK (LCWfAC*]}; % 02 

WRU (LCW«AC*]}J X 03 

LINECLEAR(LCW,AC*]);X 04 

OISKCHUNKi X 03 
DISCONNECT (LCW# AC *));X06 

INPUT0ATA(LCW#At*3);X 07 



(LCW* At*3J THEN GO EXIt; 

here jt means there is something 
Initiated for this line now, 
tq the case value which will call 

OPRIATE PROCEDURE* SO- LETS TRYIT; 



LAST THING DONE ON LINE. 

DIAL UP, 

BREAK OCCURREOi 

WHO ARE YOU RECD, 

CLEAR LINE AFTER 02 OR 03, 

NEW CHUNK OF DISK* 

DISCONNECT OCCURRED, 

INPUT DATA IS IN OUR BUFFER, 

06 " BREAK FINISHED, 



MSGPTRl^ia; X I AM THE GENIE ,., 



90196000 

90197000 

90196000 

99199000 

90201000 

90202000 

90203000 

9010A000 

90105000 

90206000 

90207000 

90206000 

90208100 

99206200 

90209000 

90210000 

90211000 

90212000 

90213000 

902HOO0 

90215000 

90216000 

90217000 

90218000 

90219000 

90220000 

90221000 

90222000 

90223000 

90224000 

90225000 

90226000 

90227000 

90226000 

90229000 

90230000 

90131000 

99232000 

90233000 

90234000 

99235000 

90236000 

90237000 

90236000 

90239000 

90240000 

90241000 

90242000 

90243000 

90244000 

90245000 

90246000 

90247000 

90248000 

90249000 

90250000 

90|50100 



0016 
0017 
0016 
0019 
0019 
0021 
0021 
0023 
0024 
0024 
0024 
0024 
0025 
0026 
0030 

0032 
0032 
0035 
0037 
0038 
0040 
0040 
0040 
0041 
0042 
0042 
0043 

0043 

0046 

0047 

0047 

00S2 

0092 

0052 

0052 

0052 

0059 

0067 

0067 

0067 

0068 

0070 

0070 

0070 

0070 

0070 

0070 

0071 

0073 

0075 
0077 
0060 

0082 
0063 

0065 
0087 
0067 



t 



IAMS«WANTieWAITFOR««0; 
END BRCAKCLEARJ 

RESTARTITCLCW#AC*]i; 
IAMI»WAITF0R»»EVENTSC13 
MAKEOATEJ 

HITHERE(LCW,At*3); X I 
CAIUCNOTUSED); % 1 

McPMsecucw*AC*3); % i 
coaLiT<Ac*n; 

MCP0KCAt*3); 

CALU(NOTUSEO}J 

CALU(N0TU5ED); 

CAUUCNOTUSED)i 

CAULCNOTUSEOJi 

CALU(NOTUSED); 

CALU(NOTUSED); 

CAUL(NOTUSED)i 

CALtCNQTUSED)J 

TEACHER(tCW,At 

INPuTCLCWfAC*] 

OlSPATCHClCW* 

DISKREAD CUCW, 

CALL(NOTUSED}; 

OOPS(LCW#At*)); 

D0GCATCHERCUCW#AC*3); 

C0MPII-EITCUCW#AC*3)I 

SETUPFlLES(lCW*AC*n; 

ERRORCSREG»UCW#AC*])i 

CL0SEWQRKTAeLECUCw»AC*3 

CHN6P5WD(t,CWiiAC*])i 

THYMECUCW#AC*]); 

CARRlAQECLCw«AC*]}J 

CHNGNAME(LCW>AC*] }i 

MaNIT0RR(LCW*AC*3)i 

SETITCLCW#AC*3)J 

SSFILe(LCW»At*3); 

equate(ucwmc*3); 
5tatuscheck(lcw#ac*3); 

CALU<NOTUSED)i 
CALUCNOTUSED); 

CAUU(NOTU§ED)i 
CAILCNOTUSED); 

CAULCNQTUSEO); 
BEGIN 

MOVE (4,WOROS»EVENTS(l3 
TWX0UTCLL»W0RKC03#U2*2 
lAH l« Oi 



; 09 • AFTER H/U SAVE WRKFIUE 
X 10 - MCP USE. 
X n - DATE CHANGED* 
(RETURN FROM NEWS/CANOE FIND) 



HANDLES 

15 

16 

17 - 

18 - 

19 • 

20 • 

21 - 

22 • 

23 • 

24 " 
25 



MCP MESSAGES ABOUT JOBS 



WANTS EUA80RATI0N, 



*WORK[U*EVENTSCl3*EVENTSt33)^ X USER INPUT 
AC*3); 

Ai;*3)i 



X 

X 
X 
X 
X 
X 
X 
X 

)n 
% 
% 
% 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



FjRES 
READS 



27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 

40 • 
41 ' "SET" & "RESET" 
42 TRANSMIT FIUE 
LABEL EQUATION 



UP RUNNERS, 

DISK FOR PROCEDURES 



ERR DURING SCAN 

DOGCATCHER, 

COMPILE IT, 

SET UP ON HELLO 

ERROR HANDLER 

TO MAKE SURE TABLE 

CHANGE PASSWORD 

TIME 

CARRIAGE CONTROL. 

CHANGENAME 



IS TIDY 



44 
45 
46 
47 
48 
49 
50 
#W0RKC103); 



STATUS OF RUNNING JOB 



SEND SS MSGS 



END^ 



PDIT(LCWfAC*3) 

COPYIT CLCWfAt 

SEQCLCW#A[*3); 

«15 

BYE aCW#AC*3) 

MAKENEWFILE<AC 

LI5TIT CLCW* A 

EXECUTE(LCW#AC 

LOADIT CLCW* A 



*3)i 



♦ 3); 
c*3); 

*33' 
t*3)i 



51 • 

52 • 
X 53 

t40 

X 54 " 

55 - 

56 " 

57 • 

58 • 



X 
X 



X 
X 

X 
X 



LIST FILES 

COPY, 

• WANTS SEQ 

BYE. 

MAKE 

LIST 

RUN#CDMPILE 

LOAD 



«S. 



OR EXECUTE 



90250200 • 


r 0089 


90250300 ' 


r 0090 


90251000 • 


r 0091 


90252000 • 


r 0093 


90253000 ' 


r 0095 


90254000 1 


r 0100 


90255000 1 


r 0103 


90256000 1 


r 0104 


90257000 ' 


r 0106 


90258000 ' 


r 0108 


90259000 1 


r Olio 


90260000 1 


r 0111 


90261000 1 


r 0112 


90262000 1 


r 0113 


90263000 1 


r 0115 


90264000 1 


r 0116 


96265000 1 


r 0117 


90266000 1 


r 0118 


90267000 1 


r 0120 


90268000 1 


r 0122 


90269000 1 


r 0126 


90270000 1 


r 0128 


90271000 1 


r 0130 


90272000 1 


r 0131 


90273000 1 


r 0134 


90274000 1 


r 0136 


90275000 1 


r 0138 


90276000 1 


r 0140 


90277000 1 


r 0143 


90278000 1 


r 0145 


90279000 1 


r 0147 


90280000 1 


r oiso 


90281000 1 


r 0152 


90282000 1 


r 0154 


90283000 1 


r 0156 


90284000 1 


r 0159 


90285000 1 


r 0161 


90286000 1 


r 0163 


9S287000 1 


r 0165 


90988000 1 


r 0167 


90289000 1 


r 0168 


90990000 1 


r 0169 


90191000 1 


r 0170 


90292000 1 


r 0172 


90293000 1 


r 0172 


90294000 1 


r 0174 


90295000 1 


r 0176 


90296000 1 


r 0176 


90297000 1 


r 0177 


90298000 1 


r 0179 


90299000 1 


r 0181 


90300000 1 


r 0184 


99801000 1 


r 0184 


90302000 1 


r 0186 


90303000 1 


r 0188 


9030S0OO 1 


r 0190 


90307000 1 


r 0192 



« I ♦ 



* ' 



SAVER CLCW, AC*3)> 
CAUL(NQTUS&0)J 
REMOVE CLCW# AC*3); 
CHANGECUCW^A); 
RENAMtiT CUCW* AC*])I 
HHATSIT (LCW» AC*)); 
CALL (NOTUSED); 
CALLCNOTUSEO); 
GUAROlT(LCW«AC*]}j 

L0CKncucw»Ac*3); 

TAPEITCl.CW#At*3); 
LlSTIT(tCW»AC*3)J 

CHARGEIT(ICW«AC*3); 
SCHEDUlEClCNfAC*]}; 
SCHEOSTATUS(CCW*At*])i 
LISTFaEClCW,AC*3)i 
UP0ATE(LCW*AC*3)J 
REPLACEIT(UCW>A(*3?; 
END OF CASE SOMETHING MORE 



EXIT* 



X 
X 
X 
X 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

X 
X 

X 



59 
60 

61 • 

62 - 

63 " 

64 • 

65 " 
66 

67 ■• 

68 - 

69 - 

70 " 

71 - 

72 " 
X 73 

74 - 

75 - 

76 - 
MAY 8E 



• SAVE 



REMOVE 
CHANGE* 
RENAME 
PRINT riUE 
WAS "TYPE" 



TYPE 



X0404" 



QUAROCMAKE IQCK} 
LOCK OR UNLOCK 
PAPER TAPE 
PRINTtNO HOINQ) 

charge code 
schedule a task. 

- sched status/stop 
list files, 
update wurk file 
replacement routine 
needed; 



IF RESTARTNEEDED THEN GO RESTART ELSE GO AGAIn; 

end of handlethisline; 



START OF 
140 IS 



139 IS 



90308000 T 
90310000 T 
90312000 T 
90313000 T 
903H000 T 
90313000 T 
90316000 P 
90117000 T 
90318000 T 
90319000 T 
90320000 T 
90321000 T 
90122000 T 
90322100 T 
90322200 T 
98322300 T 
90322400 T 
90322500 T 
90323000 T 

SEGMENT ** 

78 LONG# 

9©i24000 T 

90825000 T 

90326000 T 

216 LONG« 



0194 
0197 
0200 
0202 
0204 
0207 
0209 
0210 
0211 
0214 
0216 
0218 
0220 
0223 
0225 
0227 
0229 
0232 
0234 
******** 

NEXT 8EG 

0234 

0236 

0237 
NEXT SEQ 



140 
139 



8 




X**«****iit***************************«ir**********#************* 

PROCEDURE runcande; 

X******************************************************** 
BEGIN 

havevent; 



do 



BEGIN 



X THE LOOP STARTS HERE 



START 



BEGIN 



end; 



IF NOOATA AND WECANUSEOATA THEN 

IF nqdatarequested then 

I 

REQUESTINPUT (TTYINPUT C*3)l 

nooatarequesteo t« false; 



IF timetooklines then 

IF makeokevent then go to havevent; 

waitbiti«realcn00ata); 

nextevent cwaitbit^ clock, event c*3); 

if boolean cwaitbit) then 

BEGIN 

MOVE C5j WOR 0S# EVENT CO) # EVENTS CO] ); 

LL i«eventll; 

IF REASONIwEVENTREASON m VMCPMSG THEN 
347001, 

M0VE<15*W0R0S*£VENTC4)*W0RKC03); 
IF REASONsVHELLO THEN 

IF LlNECLLfl3]«SCWWAlTBITS NEQ REASON THEN 
LINECLL*233 I" EVENTSt23; X TERMINAL TYPE 



90327000 
90828000 
90329000 
90330000 
90331000 
OF SEGMENT 
90332000 
90333000 
90334000 
90335000 
90336000 
90337000 
90338000 
90339000 
90339100 
99339200 
90340000 
90341000 
90342000 
90343000 
90344000 
90345000 
90346000 
99347000 
90348000 
90348100 
90348200 
99348300 



0061 
0061 
0061 
0061 
0061 
********* 

0000 
0000 
0000 
0001 

0003 
0003 
0004 
0006 
0006 
0007 
0009 
0010 
0012 
0012 
0012 
0015 
0016 
0010 
0018 
0021 
0022 
0024 



141 




END ELSE buiioadataevent; 

IN t,Li»o; REAS0Ni»i3> eno; xbad line numbek 
reasonbvheuuo and loggingon then 



BEG 

IF 
BEGIN LLI«0; 
f 



AND 
REAS0Nlfl!l3i END; 



IF LUPREV NEQ LL THEN 

BEGIN COMHENT A DIFFERENT 

IF ULPREV NEQ THEN 

BEGIN COMMENT CHARGE PREV 



USER IS GOING TO USE TIME; 



usrR FOR HIS time; 

l.lNE[lLPREV*PTL0C3MCL0CK-CU0CKPREV*HN£tLLPREV#PTU0C]; 

IF USER TO BE CHARGED; 
LUPREVIsLU; 

cuockprevmclock; 

if new user to be handled; 
if reason neq 13 then % throw away #13»8a0 luck, 

han0l£thisline(lcw#hnecll'*3)i 
of loop until false; 
runcanoe; 



141 IS 



90349000 


T 


0027 


903SQ000 




0028 


90351000 




0029 


90352000 




0031 


90153000 




0033 


90353500 




0035 


90354000 




0036 


90355000 




0036 


90156000 




0037 


90157000 




0036 


90358000 




0038 


90359000 




0042 


90360000 




0042 


90361000 




0043 


90362000 




0044 


90363000 




0044 


90364000 




0044 


90365000 




0049 


99366000 




0049 


50 LONC 


• # 


NEXT 5E6 



X***********************************************«*«**tk**«****iit********** 



procedure initialuecande; 

******************************* 



X**************************************** 
BEGIN LABEL DUMMY; 



STREAM PROCEDURE SETUPC0MM2CC0MM2 ); 
BEGIN 0IMC0MM2; 

DSI»8 LlT"088ie94C''; 
DSI« LIT"*"; DII5DI+4; 
SII-LOC C0MM2; SII»SI*5; 05l»3 

end; 



X 3''0010103UOU0435" 
X S'VS" 

chr; 



90367000 T 0061 

90S67100 T 0061 

90367200 T 0061 

90367300 T 0061 
START OF SEGMENT 

90167400 T 0000 

90367410 T 0000 

90367420 T 0000 

90367430 T OOOl 

90367440 T 0002 

90367450 T 0003 



********** ]>4g 



REAL STREAM PROCEDURE AODRESS(W); 
BEGIN SIlsW; ADDRESSi«Si; END; 



90367500 
90367510 



0003 
0003 



X***********;************************************************************ 
PROCEDURE SpOL060NCLCW*A); BOOLEAN LCW; ARRAY AC03; 

x*************************************************************«******«** 

BEGIN 

REAL VRB*N; 



STREAM PROCEDURE SETBIT ( N#WORO ); VALUE n; 
BEGIN LOCAL NU 

Sii«LOC n; sn«si*6; oii»loc ni; di»«0I+7; osi»chr; 
DiiftwoRo; NHPii«oi*8); SKIP N ob; ds»»set; 
End; 



START 



90367600 


T 


0005 


90367610 




OQOS 


90367620 




0005 


99367630 




0005 


90367640 




0005 


90367650 




0005 


OF SEGMENT 


******* 


90367660 




0000 


90367670 




0000 


90367680 




0000 


90367690 




0001 


90367700 




0003 



143 



< I 



t f tuitii^ 



♦ ' «♦ « 



»'\ 



ESPl im QETE5P0I5K; 
ESP2 tm GETESPDISKJ 
USEIICODE !■ "SPO "i 
LOGGeDON »«• TRUEi 
LlNECLEAR(LCW»AC*])i 

FiiEsOK !■ false; 

FILL W0RKC*3 WITH 

"ISEQ "* "SHELLO 



IBYE 



"* •*2TAPE •♦» 



"aPUNCH 

"3STOP 

"aTIME 



'» "6CHARQE "# "SSCHEDUl"* "3STATUS 
', "aCC "» "aSET "# ♦•5RESET 

•# "SMONITOR"; 



FOR VRB I* STEP 1 UNTIl 13 00 

Begin 

N l« weRKCVRBjJ 

If YOufflNDAVERBcN* VERBTABUECO )* NUMOFVERBS) THEN 

BEGIN 

N l« CN.C9I9]) OIV 2; 

SETBITCN+I* RESTRICTEOVERBS); 

ENOI 

End; 

END PROCEDURE SPOUOGOn; 



»0904- 
X0904* 

X0904" 
»0904- 

X0904- 
X0904- 

xovoa" 

X0904- 
X0904- 

X09oa- 

X0904- 
X090ft'' 
X0904- 
X0904" 
X0904- 



START 



144 IS 



143 IS 



90167710 
90367720 

90367730 
90367740 
90367730 
90367760 
90367770 
90367780 
90367790 
OF SEGMENT 
99367800 
90367810 
90367820 

14 LONG, 
90367830 P 
90367840 
90367850 
90367860 
90367870 
90367880 
90367890 
90367900 
90367910 
90367920 
30 LONG« 



0004 
0004 
0005 
0007 
0008 
0010 
0012 
0014 

0015 

********* 

0016 

0016 

0016 
NEXT SEG 

0016 

0018 

0018 

0019 

0020 

0021 

0022 

0024 

0024 

0027 
NEXT SEG 



144 



143 



142 



MAKEOATE; 

COMMENT VERBTABlECWOR0]it6l3] IS USED AS A FtAG FOR 
SCANNIR < FOR •♦SPECIAL" VERB }i 

FILL VERBTABLEC*] WITH 



"ILIST ", 

"IRUN »# 

''25AVE **, 

"ISEO "* 
"lEXECUTE"* 

'•200 ••* 

"IMAKE ♦♦# 

''2L0AD ", 
"ICOMFILE"* 

••3REM0VE "* 

♦♦2CHANQE »•* 

"3RENAME "* 

-IFILES ", 

"IWHATS ♦•* 

''2CREATE "# 

"5HELL0 ••# 

♦•2TYPE "# 

"IBYE ••* 

•♦3CQPY ••, 



a^aooooooooooooo?©", 

3"300002000000007l" 

3"3000040000000073'' 
3''3000060000000065'' 
3''30OOlO0O0OO0OO7l'' 
3"3000l0000000007l'' 
3''3000140000000067'' 
3"3000160000000072'' 
3''300020000000007l'' 
3" 3000220000000075*' 
3''3000240000000076'' 
3"3000260000000077'' 
3''3O00300OO0O0O063'' 
3''3000320000000100'' 
3*300Q340000000067'' 
3*'30l036000000000l" 
3''3000400000000076'' 
3"3000420000000066'' 
3"3000440000000064** 







X0904" 


90368000 




0005 


R 




X0904- 


90368010 




0010 






X0904- 


90368020 




0010 






X0904- 


90369000 




0010 


f X #56 




X0904- 


90370000 




0011 






START 


OF SEGMENT 


********** 


» X #57 




X0904* 


90371000 




0012 


# X #59 




X0904' 


90372000 




0012 


' X #53 




X0904- 


90373000 




0012 


P X #57 




X0904" 


90374000 




0012 


, X #57 


* EXECUTE 


90375000 




0012 


» X #55 




Xo9o4" 


90376000 




0012 


, % #58 




X0904- 


90377000 




0012 


* X #57 




X0904" 


98378000 




0012 


> X #61 




X0904- 


9037V000 




0012 


> X #62 




X0904* 


90380000 




0012 


» X #63 




X0904- 


90381000 




0012 


, X #51 




X0904- 


90382000 




0012 


X #64 


ALSO 


X0904" 


90383000 




0012 


# X #55 


ALSO 


X09Q4- 


90384000 




0012 


* X 01 




X0904* 


90385000 




0012 


# X #62 


ALSO 


X0404- 


90366000 




0012 


* X #54. 




X0904- 


90387000 




0012 


* X #52 




X0904* 


90388000 




0012 



145 



m, 



% 
% 
% 
% 

% 
% 
% 
% 

% 
% 

% 

% 
% 

X 

X73 

X37 
X 75 



"SMERGE " 
"3RE5EQ " 
"ZDELETE « 
"1 APPEND •' 
"lADO " 
"210 " 
"258 •• 

"IGUARD " 
"SLOCK « 

"lUNLUCK •♦ 
"2TAPE " 
"IPRINT •♦ 
"SPUNCH •♦ 
"iCHARGE " 
"aSCHEOUL" 
"3STATUS " 
"SSTOP 
«2TIME " 
"lUPOATE " 
"SREPUACE" 
"OFIND « 
"200 " 
''2RMERGE " 
"lOlSPLAY" 
"3SET " 
"SReSET " 
'♦2M0NIT0R" 
"aSSFlUE " 
''2E0UATE •• 
•♦3PUBIIC " 
♦'7*******" 

IDCKCVERBTABLEC 
FILL TYPETABLEC 



"EBASJC " 
"EALGOL " 
"ECOBOL " 
"GFORTRAN" 
"ETSPOL " 
♦TXALGOL " 
«3SEQ " 
♦♦40ATA " 
"SLOCK " 
"aiNFO " 
"QCOB0L68"; 



L0CKCTYPETABLEC*3)i % MAKE READ ONLY ARRAY 
FILL RESWROTA8LEt*3 WITH ••7UNKN0WN"* 

"5BASIC "» % X 

"SALGOL "# X 2 

"5CQB0L "* X 3 

"/FORTRAN"* X 4 

"5TSP0L "» X 5 

"6XALQ0L "# X 6 

"3SEU "# X 7 



3"3000460O00OOOO64'' 
3"300050000000g064" 
3** 3000520000000064" 
3"3O005400000O0064" 
3"3000540000000064'' 
3"3000600000000062" 
3"3000620000000062" 
3"3000640000000103" 
3"3000660000000104" 
3"3000700000000104" 
3**3000720000000105" 
3"3000740000000106'' 
3"3000760000000064" 
3"3001000000000107" 
3"300l020000000llO" 
3"300l040000000lU" 
3"30Ol0600OOOOOUX" 
3*'300llO0O0000O045" 
3''30OU20OOOOOOU3" 

3"3oni4ooooooon*" 

3"30lll60000000U4" 
3"3001200000000046" 
3"3001220000000064" 
3"300I240000000070'' 
3"30U26000000005l" 
3"30U300000000051" 
3"300i320000000050'' 
3"3001340000000052" 
3"3001360000000053" 
3** 3001400000000104" 
Qi X LAST ENTRY 



#52' ALSO 
#52* ALSO 
#52* ALSO 

#52* ALSO 
52*ALS0 

50 

SO^ALSO 

67 

68 

6a#ALS0 

69 

70 

52*AL50 

71 



ALSO 



X 

X 
X 
X 

X 
X 

X 
X 
X 

X 
X 



76 
76 
38 
52 
56 
41 
41 
40 
42 
43 
68 



3)i * MAKE READ ONLY ARRAY 
3 WITH "/UNKNOWN"* 



ALSO 



ALSO 



ALSO 



ALSO 



X0904- 90389000 P 

X0904- 90390000 P 

X0904- 90391000 P 

X0904* 90392000 P 

X0904* 90393000 P 

X0904" 90394000 P 

X0904" 90395000 P 

X0904- 90396000 P 

X0904- 90397000 P 

X0904" 90398000 P 

X0904- 90399000 P 

X0904* 90400000 P 

X0904" 90401000 P 

X0904- 90402000 P 

X0904- 90402100 P 

X0904" 90402200 P 

X0904* 90402300 P 

X0904- 90402400 P 

X0904" 90402860 P 

X0904- 90402870 P 

X0904- 90402880 P 

X0904- 90402890 P 

X0904- 90403000 P 

X0904- 90403100 P 

X0904- 90403200 P 

X0904" 9S403300 P 

X0904" 90403400 P 

X0904- 90403410 P 

X0904- 90403420 P 

X0904- 90403430 P 

X0904- 90403900 P 
H5 IS 100 LONG# 

X0904- 90403950 P 

X0904- 90404000 P 

START OF SEGMENT * 

X0904- 90405000 P 

X0904'' 90406000 P 

10904- 90407000 P 

X0904- 90408000 P 

X0904- 90409000 P 

X0904" 90410000 P 

X0904* 9§411000 P 

X0904- 90412000 P 

X0904- 90413000 P 

X0904- 90413100 P 

X0904- 90413900 P 
146 IS 12 LONG* 

X0904- 90413950 P 

X0904- 96414000 P 

START OF SEGMENT * 

X0904- 90415000 P 

10904- 90416000 P 

X0904" 99417000 P 

X0904- 90418000 P 

X0904- 90419000 P 

X0904- 90420000 P 

X0904- 9»421000 P 



0012 
0012 
0012 
0012 
0012 
0012 
0012 

0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 

0012 
0012 
0012 
0012 
0012 
NEXT SEG 142 
0012 
0014 
********* 145 

0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
NEXT SEG 142 
0016 

0016 
********* X47 
0020 
0020 
0020 
0020 
0020 
0020 
0020 



'* ..J" 



m 



\ 



M 



•♦4DATA « 


• X 


8 


"ALOCK " 


f % 


9 


♦•iHNFU " 


t % 


10 


"7C0B0168" 


f % 


U 


"dPUBLIC "i 


t % 


u 


-rSOlEUSE"/ 


> % 


13 


♦•rUNLOCKE"/ 


> X 


H 


"aiOCKED "i 


> % 


15 


"bOBJECT ♦•- 


> X 


16 


"6S0UHCE "i 


* X 


17 


••4CARDS »i 


» X 


18 


"4DI$K "/ 


» X 


19 


"SEND "i 


> X 


20 


"SERRQRS "( 


» X 


21 


•♦4FILES "^ 


» X 


22 


"aFROM "j 


* X 


23 


"7UlBRARY»i 


f % 


24 


"7PRINTER"/ 


* X 


25 


"SPUNCH "< 


' X 


26 


•♦5RESEQ "j 


' X 


27 


"ATAPE ♦'/ 


> X 


26 


"ftTYPE "< 


> X 


29 


"AWITH "j 


> X 


30 


M/*******"; 


X 


31 



X I - 17 ARE POSITION DEPENDENT 



END 



LOCK(KESWRDTABUEC*J); X MaKE READ ONLY ARRAY 

SETUPC0MM2(C0MM2)^ 

ASTOR,tl«53 l« "#"; 
SPOLO(iON(LLCONTRQl.t0 3,LINEtO#*]); 
FLAGS l« (NOT FALSfc) & FAL5Et6J 6 1 2]; 
WORK CO 3 I •O; DISKWAIT(l#WORKC*3*30*0); 
DlSKB0TT0MjaW0RKE4J-2J XINITIALIZE IT. 
WORKCOjisO; W0RKADRS»cAODRESSCWORKC13)i 
WORKENDADRS l» ADORESSC W0RKC9 3 ); 
INITIALIZECANDE/ 



X0904-' 
X0904- 
X0904- 
X0904» 
X0904- 
X0904- 
X0904- 
X0904" 
X0904- 
X0904- 
X0904- 
X0904- 
X0904- 
X0904- 
X0904- 
X0904- 
X0904* 
X0904" 

X0904- 
X0904« 
X0904- 
X0904- 
X0904- 
X0904- 



147 IS 



142 IS 



99422000 
99423000 
90424000 
99425000 
90426000 
90427000 
90428000 
90429000 
90430000 
90431000 
90432000 
90433000 
99434000 
90435000 
99436000 
90437000 
99436000 
90438100 
90438200 
90438300 
90438400 
90438500 
90438600 
90439000 

32 LONG* 
90439100 T 
90439200 
90440000 
90441000 
90442000 
90442100 
90442200 
99442300 
90442400 
90442600 

41 LONG* 



0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 
NEXT 5EG 

0020 

0022 

0023 

0025 

0027 

0029 

0032 

0034 

0037 

0039 
NEXT 5EG 



14g 



initializecande; 
runcande; 
end procedures block; 

end communicates block; 

End ARRAYS BLOCK. 

NUMBER OF ERRORS DETECTED « 0, COMPILATION TIME • 1124 SECONDS, 

PRT SIZE ' 395; TOTAL SEGMENT SIZE » 1O84O WORDSi DISK SIZE « 540 SEGs; NO. PGM. SEGS • 153 

ESTIMATED CORE STORAGE rEqUIrEO ■ U490 WORDS. 

ESTIMATED AUXILIARY MEMQRY REQUIRED « WORDS, 

NUMBER OF CARD-IMaGES PROCESSED « 7624, 



90443000 T 0061 

90444000 T 0061 

90445000 T 0062 
8 IS 66 LONGf NEXT SEG 3 

99446000 T 0018 
3 IS 22 LONG* NEXT SEG 2 

90447000 T 0032 
2 IS 35 LONG* NEXT SEG 1 
I IS 2 LONG* NEXT SEG 



